A060252 Smallest prime that is the sum of n consecutive composite numbers.

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

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: A043922 A260179 A100473 * A127924 A250640 A344636

Adjacent sequences: A060249 A060250 A060251 * A060253 A060254 A060255

Keyword

nonn

Author

Robert G. Wilson v, Mar 22 2001

Status

approved