|
Search: id:A060245
|
|
|
| A060245 |
|
Primes p such that the sum of the first p composite numbers is itself prime. |
|
+0
1
|
|
| 5, 17, 37, 43, 47, 53, 73, 101, 127, 149, 283, 439, 601, 881, 967, 991, 1087, 1117, 1129, 1201, 1259, 1277, 1303, 1319, 1453, 1481, 1559, 1571, 1607, 1721, 1973, 2293, 2341, 2351, 2381, 2411, 2591, 2677, 2729, 2741, 2957, 2971, 3049, 3167, 3457, 3491
(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[ n ] && PrimeQ[ s ], Print[ n ] ], {n, 1, 5000} ]
|
|
CROSSREFS
|
Sequence in context: A121325 A145689 A080167 this_sequence A119456 A053755 A162373
Adjacent sequences: A060242 A060243 A060244 this_sequence A060246 A060247 A060248
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 22 2001
|
|
|
Search completed in 0.002 seconds
|
