|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|