login
Primes that are the sum of cubes of 5 consecutive primes.
2

%I #5 Jul 02 2017 10:34:29

%S 15643,1239911,3712769,14255963,101001041,504418823,595289339,

%T 738356401,885318983,1034893493,1120883653,1217022481,1288478701,

%U 1429102277,2779573231,3989869253,4873949893,5285087837,6550772831,8355641813

%N Primes that are the sum of cubes of 5 consecutive primes.

%H Harvey P. Dale, <a href="/A165612/b165612.txt">Table of n, a(n) for n = 1..1000</a>

%F A000040 INTERSECT A133539. - _R. J. Mathar_, Sep 25 2009

%t 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

%t Select[Total/@Partition[Prime[Range[200]]^3,5,1],PrimeQ] (* _Harvey P. Dale_, Jul 02 2017 *)

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Sep 22 2009