|
Search: id:A053782
|
|
|
| A053782 |
|
Sum of first n composite numbers is prime. |
|
+0
3
|
|
| 5, 14, 17, 20, 35, 36, 37, 43, 47, 48, 53, 54, 63, 64, 68, 73, 74, 75, 86, 101, 106, 127, 142, 149, 154, 159, 208, 209, 214, 221, 231, 234, 250, 254, 258, 259, 272, 283, 302, 304, 329, 332, 346, 352, 374, 398, 417, 424, 439, 440, 445, 458, 471, 550, 551, 556
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
f[ n_Integer ] := Block[ {k = n + PrimePi[ n ] + 1}, While[ k - PrimePi[ k ] - 1 != n, k++ ]; k ]; s = 0; Do[ s = s + f[ n ]; If[ PrimeQ[ s ], Print[ n ] ], {n, 1, 1000} ]
|
|
CROSSREFS
|
Cf. A002808, A000040, A053872, A013919.
Sequence in context: A160709 A067113 A101774 this_sequence A102884 A071852 A022139
Adjacent sequences: A053779 A053780 A053781 this_sequence A053783 A053784 A053785
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
G. L. Honaker, Jr. (honak3r(AT)gmail.com), Mar 30 2000
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 22 2001
|
|
|
Search completed in 0.002 seconds
|
