

A105121


Numbers k(n) from A105120.


2



0, 1, 1, 1, 1, 3, 3, 3, 3, 3, 9, 15, 47, 63, 67, 69, 93, 99, 105, 111, 111, 115, 121, 139, 165, 189, 205, 231, 249, 253, 285, 291, 309, 323, 363, 367, 369, 377, 395, 401, 465, 501, 533, 587, 591, 609, 629, 657, 693, 729, 735, 783, 787, 825, 863, 863, 869, 917, 981
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,6


LINKS



MATHEMATICA

a[1] = {2, 0}; a[n_] := a[n] = Block[{m = 2a[n  1][[1]], k = a[n  1][[2]]}, While[ !PrimeQ[m + k], k++ ]; {m + k, k}]; Table[ a[n][[2]], {n, 59}] (* Robert G. Wilson v, Apr 08 2005 *)


PROG

(PARI) a=2; print1(k=0, ", "); for(n=2, 59, j=k; while(!isprime(2*a+j), j++); print1(k=j, ", "); a=2*a+k) \\ Klaus Brockhaus


CROSSREFS



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



