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

Author

Vladimir Joseph Stephan Orlovsky, Sep 22 2009

Keywords

• nonn

Links

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

Programs

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 *)

Formula

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