Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #8 Aug 16 2019 16:38:10
%S 0,1,2,12,24,120,180,360,720,1260,2880,3780,2520,9240,5040,10080,
%T 18480,15120,27720,30240,50400,55440,65520,83160,151200,110880,240240,
%U 166320,221760,277200,388080,332640,360360,554400,665280,786240,997920,831600,942480,720720,1995840
%N Index of first occurrence of n in the Erdös-Hooley Delta function A226898, with a(0)=0.
%t 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]
%Y Cf. A226898, A226899, A226900, A226901.
%K nonn
%O 0,3
%A _Robert G. Wilson v_, Jul 20 2019