A309278 Index of first occurrence of n in the Erdös-Hooley Delta function A226898, with a(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

Author

Robert G. Wilson v, Jul 20 2019

Keywords

• nonn

Crossrefs

Cf. A226898, A226899, A226900, A226901.

Programs

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]; f[1] = 1; t[_] := 0; k = 1; While[k < 10^5, a = f@k; If[ t[a] == 0, t[a] = k]; k++]; t@# & /@ Range[0, 23]