|
| |
|
|
A060252
|
|
Smallest prime that is the sum of n consecutive composite numbers.
|
|
0
|
|
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
2,1
|
|
|
LINKS
|
|
|
|
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
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
