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,3

Links

Table of n, a(n) for n=0..40.

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

Cf. A226898, A226899, A226900, A226901.

Sequence in context: A337077 A121119 A226899 * A052565 A176710 A141900

Adjacent sequences: A309275 A309276 A309277 * A309279 A309280 A309281

Keyword

nonn

Author

Robert G. Wilson v, Jul 20 2019

Status

approved