A165612 Primes that are the sum of cubes of 5 consecutive primes.

15643, 1239911, 3712769, 14255963, 101001041, 504418823, 595289339, 738356401, 885318983, 1034893493, 1120883653, 1217022481, 1288478701, 1429102277, 2779573231, 3989869253, 4873949893, 5285087837, 6550772831, 8355641813

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Formula

A000040 INTERSECT A133539. - R. J. Mathar, Sep 25 2009

Mathematica

lst={}; Do[p=Prime[n]^3+Prime[n+1]^3+Prime[n+2]^3+Prime[n+3]^3+Prime[n+4]^3; If[PrimeQ[p], AppendTo[lst, p]], {n, 6!}]; lst
Select[Total/@Partition[Prime[Range[200]]^3, 5, 1], PrimeQ] (* Harvey P. Dale, Jul 02 2017 *)

Crossrefs

Sequence in context: A253173 A195814 A373177 * A206747 A075043 A109567

Adjacent sequences: A165609 A165610 A165611 * A165613 A165614 A165615

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Sep 22 2009

Status

approved