A242393 Records in A187202 by index.

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

Author

Robert G. Wilson v, May 12 2014

Keywords

• nonn

Comments

The first nine odd primes are present, and then only (very) abundant numbers.

Examples

			The final or last difference of 30 is 50 = A187202(30). The next higher value is 104 which occurs at 42, A187202(42) = 104.
		

Links

• Robert G. Wilson v, Table of n, a(n) for n = 1..106

Crossrefs

Cf. A187202.

Programs

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]]