OFFSET
0,3
COMMENTS
Sequence b, with an offset change, corresponds to A110930. - Rémy Sigrist, Jul 18 2020
MATHEMATICA
b[0] = 1; b[n_] := b[n] = NextPrime[2*b[n - 1]]; Table[b[n] - 2*b[n - 1], {n, 1, 66}] (* Amiram Eldar, Aug 18 2020 *)
PROG
(PARI) b=1; for(n = 1, 66, b = 2 * b; p = nextprime(b + 1); k = p - b; b = p; print1(k", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Dimitris Valianatos, May 29 2020
STATUS
approved