OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..775
FORMULA
MATHEMATICA
a = {}; Do[n = 1; While[(Prime[n + 1] - Prime[n]) < 2 k, n++ ]; AppendTo[a, n], {k, 1, 75}]; a
PROG
(PARI) lista(pmax) = {my(k = 1, prv = 2, m = 2, kprv = 2); forprime(p = 3, pmax, k++; if(p - prv >= m, for(i = 1, (p - prv - m)/2 + 1, print1(k-1, ", ")); m = p - prv + 2; kprv = k); prv = p); } \\ Amiram Eldar, Sep 06 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Sep 17 2008
STATUS
approved