A060330 Primes the sum of five consecutive composite numbers.

37, 53, 67, 83, 97, 157, 293, 307, 353, 367, 503, 547, 683, 743, 757, 907, 953, 967, 983, 997, 1193, 1553, 1567, 1733, 1747, 2153, 2617, 2843, 2857, 3083, 3203, 3217, 3307, 4057, 4133, 4283, 4297, 5107, 5153, 5167, 5303, 6143, 6397, 6607, 7253, 7417

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Mathematica

composite[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1 != n, k++ ]; k); a = {}; Do[ p = composite[ n ] + composite[ n + 1 ] + composite[ n + 2 ] + composite[ n + 3 ] + composite[ n + 4 ]; If[ PrimeQ[ p ], a = Append[ a, p ] ], {n, 1, 1500} ]; a

Prog

(PARI) list(lim)=my(v=List(), u=[4, 6, 8, 9, 0], i=5); forcomposite(n=10, lim\1, u[i]=n; if(i++>5, i=1); my(p=vecsum(u)); if(p>lim, break); if(i++>5, i=1); if(isprime(p), listput(v, p))); Vec(v) \\ Charles R Greathouse IV, Dec 27 2024

Crossrefs

Sequence in context: A350250 A092105 A101938 * A302720 A304358 A214755

Adjacent sequences: A060327 A060328 A060329 * A060331 A060332 A060333

Keyword

nonn,changed

Author

Robert G. Wilson v, Mar 30 2001

Status

approved