A272375 Negative records in A187202 by index.
1, 10, 14, 20, 24, 38, 40, 48, 60, 84, 120, 180, 264, 300, 396, 432, 504, 540, 630, 720, 840, 1320, 2184, 2400, 2772, 3024, 3120, 3360, 3780, 3960, 5940, 6840, 7200, 8400, 9240, 10080, 12600, 15120, 21840, 22680, 25200, 27720, 30240, 40320, 52920, 55440, 83160, 128520, 131040, 138600, 166320, 196560, 221760
Offset: 1
Keywords
Links
- Robert G. Wilson v, Table of n, a(n) for n = 1..123
Programs
-
Mathematica
f[n_] := (dvr = Divisors@ n; Differences[dvr, Length@ dvr - 1][[1]]); lst = {}; k = 1; mx = 2; While[k < 1000001, a = f@ k; If[a < mx, mx = a; AppendTo[lst, k]]; k++]
Comments