|
|
A335266
|
|
Numbers k such that b(n) = 2*b(n - 1) + k is prime, where b(0) = 1 and k is the smallest positive number.
|
|
0
|
|
|
1, 1, 3, 3, 5, 5, 5, 11, 15, 7, 13, 7, 13, 31, 13, 9, 5, 21, 3, 21, 51, 17, 9, 39, 15, 3, 57, 27, 3, 15, 35, 11, 39, 55, 13, 27, 11, 35, 17, 11, 15, 13, 1, 13, 19, 75, 5, 23, 41, 9, 63, 63, 13, 25, 31, 21, 11, 9, 27, 11, 3, 31, 21, 35, 47, 33
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|