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

Author

Yasutoshi Kohmoto, Apr 08 2005

Keywords

• nonn

Links

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

Crossrefs

Cf. A105120.

Programs

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

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

Extensions

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