|
Search: id:A060252
|
|
|
| A060252 |
|
Smallest prime that is the sum of n consecutive composite numbers. |
|
+0
1
|
|
| 17, 23, 97, 37, 59, 173, 193, 199, 157, 149, 223, 373, 199, 431, 317, 277, 331, 823, 367, 487, 937, 659, 769, 983, 937, 883, 743, 829, 919, 1217, 1109, 1031, 1039, 997, 1049, 1103, 1913, 1319, 1433, 2837, 1447, 1451, 1867, 1699, 1889, 1709, 1777, 3761
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
EXAMPLE
|
a(4) = 97 because 22 + 24 + 25 + 26 = 97 and it is the least such prime.
|
|
MATHEMATICA
|
f[n_Integer] := Block[ {k = n + PrimePi[n] + 1}, While[ k - PrimePi[k] - 1 != n, k++ ]; k]; Do[c = Table[ f[k], {k, 1, n} ]; k = n + 1; While[ p = Apply[ Plus, c]; ! PrimeQ[p], c = Delete[c, 1]; c = Append[ c, f[k] ]; k++ ]; Print[p], {n, 2, 60} ]
|
|
CROSSREFS
|
Sequence in context: A043142 A043922 A100473 this_sequence A127924 A108260 A062628
Adjacent sequences: A060249 A060250 A060251 this_sequence A060253 A060254 A060255
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 22 2001
|
|
|
Search completed in 0.005 seconds
|
