

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

Table of n, a(n) for n=2..49.


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 * A127924 A108260 A062628
Adjacent sequences: A060249 A060250 A060251 * A060253 A060254 A060255


KEYWORD

nonn


AUTHOR

Robert G. Wilson v, Mar 22 2001


STATUS

approved



