A105121 Numbers k(n) from A105120.

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

Offset

1,6

Links

Zak Seidov, Table of n, a(n) for n = 1..200.

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

Cf. A105120.

Sequence in context: A126715 A158805 A163469 * A290658 A264097 A177013

Adjacent sequences: A105118 A105119 A105120 * A105122 A105123 A105124

Keyword

nonn

Author

Yasutoshi Kohmoto, Apr 08 2005

Extensions

Edited, corrected and extended by Klaus Brockhaus and Robert G. Wilson v, Apr 08 2005

Status

approved