|
Cu computerul, cod GP/PARI, se confirma usor cele de mai sus.
(16:33) gp > N=1; nrDivizoriN=1;
(16:34) gp > for( k=2, 1000, ndiv=length(divisors(k)); if( ndiv > nrDivizoriN, nrDivizoriN = ndiv; N=k; ); )
(16:34) gp > print( N )
840
(16:34) gp > factor( N )
%7 =
[2 3]
[3 1]
[5 1]
[7 1]
(16:38) gp > print( nrDivizoriN )
32
(16:38) gp > print( divisors( N ) )
[1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 14, 15, 20, 21, 24, 28, 30, 35, 40, 42, 56, 60, 70, 84, 105, 120, 140, 168, 210, 280, 420, 840]
--- df (gauss)
|