|
Search: id:A105121
|
|
| |
|
| 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; listen)
|
|
|
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}] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 08 2005)
|
|
PROGRAM
|
(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) (Brockhaus)
|
|
CROSSREFS
|
Cf. A105120.
Sequence in context: A126715 A158805 A163469 this_sequence A092282 A048181 A091799
Adjacent sequences: A105118 A105119 A105120 this_sequence A105122 A105123 A105124
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Yasutoshi Kohmoto (zbi74583(AT)boat.zero.ad.jp), Apr 08 2005
|
|
EXTENSIONS
|
Edited, corrected and extended by Klaus Brockhaus (klaus-brockhaus(AT)t-online.de) and Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 08 2005
|
|
|
Search completed in 0.002 seconds
|
