|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|