|
%I #17 Jul 16 2019 11:56:16
%S 1,4,8,12,24,36,48,60,72,120,180,240,360,720,840,1080,1260,1440,1680,
%T 2160,2520,4320,5040,7560,10080,15120,20160,25200,27720,30240,45360,
%U 50400,55440,75600,83160,110880,151200,166320,221760,277200,332640
%N Numbers with an increasing number of nonprime divisors.
%C Positions of records in A033273.
%H Amiram Eldar, <a href="/A059992/b059992.txt">Table of n, a(n) for n = 1..571</a> (terms 1..146 from Ray Chandler)
%e a(4)=12 because twelve has 4 nonprime divisors {1, 4, 6 and 12} whereas a(3)=8 has only 3; and twelve is the first number greater than eight which exhibits this property.
%t l = 0; Do[ c = Count[PrimeQ[ Divisors[n] ], False]; If[c > l, l = c; Print[n] ], {n, 1, 10^6} ]
%o (PARI) lista(nn) = {my(m=0, nb); for (n=1, nn, nb = sumdiv(n, d, !isprime(d)); if (nb > m, m = nb; print1(n, ", ")););} \\ _Michel Marcus_, Jul 16 2019
%Y Cf. A055079, A002182, A033273, A180040.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Mar 08 2001
%E Alternate description and b-file from _Ray Chandler_, Aug 07 2010
|
