|
|
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
|
|
|
|