login
A242393
Records in A187202 by index.
2
1, 3, 5, 7, 11, 13, 17, 19, 23, 29, 30, 42, 90, 132, 150, 156, 168, 240, 360, 420, 756, 924, 960, 1260, 2160, 2520, 4620, 5040, 6720, 7560, 14280, 16380, 18480, 20160, 31680, 35280, 41580, 45360, 50400, 65520, 98280, 110880, 171360, 226800, 249480, 257040, 262080, 277200, 332640
OFFSET
1,2
COMMENTS
The first nine odd primes are present, and then only (very) abundant numbers.
LINKS
EXAMPLE
The final or last difference of 30 is 50 = A187202(30). The next higher value is 104 which occurs at 42, A187202(42) = 104.
MATHEMATICA
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]]
CROSSREFS
Cf. A187202.
Sequence in context: A176847 A067019 A132106 * A210494 A338483 A318871
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, May 12 2014
STATUS
approved