|
%I #9 May 16 2014 15:47:45
%S 1,3,5,7,11,13,17,19,23,29,30,42,90,132,150,156,168,240,360,420,756,
%T 924,960,1260,2160,2520,4620,5040,6720,7560,14280,16380,18480,20160,
%U 31680,35280,41580,45360,50400,65520,98280,110880,171360,226800,249480,257040,262080,277200,332640
%N Records in A187202 by index.
%C The first nine odd primes are present, and then only (very) abundant numbers.
%H Robert G. Wilson v, <a href="/A242393/b242393.txt">Table of n, a(n) for n = 1..106</a>
%e The final or last difference of 30 is 50 = A187202(30). The next higher value is 104 which occurs at 42, A187202(42) = 104.
%t f[n_] := (dvr = Divisors@ n; Differences[dvr, Length@ dvr - 1][[1]]); k = 1; lst = {}; mx = 0; While[k < 100000001, If[ f@ k > mx, mx = f@ k; Print[{k, mx}]; AppendTo[lst, {k, mx}]]; k++]; Transpose[ lst][[1]]
%Y Cf. A187202.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, May 12 2014
|
