

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



