|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|