login
A165612
Primes that are the sum of cubes of 5 consecutive primes.
2
15643, 1239911, 3712769, 14255963, 101001041, 504418823, 595289339, 738356401, 885318983, 1034893493, 1120883653, 1217022481, 1288478701, 1429102277, 2779573231, 3989869253, 4873949893, 5285087837, 6550772831, 8355641813
OFFSET
1,1
LINKS
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
KEYWORD
nonn
AUTHOR
STATUS
approved