login
A309278
Index of first occurrence of n in the Erdös-Hooley Delta function A226898, with a(0)=0.
0
0, 1, 2, 12, 24, 120, 180, 360, 720, 1260, 2880, 3780, 2520, 9240, 5040, 10080, 18480, 15120, 27720, 30240, 50400, 55440, 65520, 83160, 151200, 110880, 240240, 166320, 221760, 277200, 388080, 332640, 360360, 554400, 665280, 786240, 997920, 831600, 942480, 720720, 1995840
OFFSET
0,3
MATHEMATICA
f[n_] := Block[{ds = Divisors@n, k = 1, mx = 0}, len = Length@ds; While[k < len, a = Length@Select[Take[ds, {k, len}], ds[[k]]*E > # &]; If[a > mx, mx = a]; k++]; mx]; t[_] := 0; k = 1; While[k < 10^6, a = f@k; If[ t[a] == 0, t[a] = k]; k++]; t@# & /@ Range@60]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 20 2019
STATUS
approved