A164129 Primes that are the sums of cubes of three consecutive primes.

66347, 199081, 332207, 581237, 733123, 1047691, 2647943, 3612799, 7505063, 10620793, 22715029, 32180581, 36355409, 60621553, 76753387, 98784001, 116319367, 147594259, 162516943, 177616529, 216596449, 252725563, 343774313

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Aug 10 2009

Keywords

• nonn

Examples

			23^3+29^3+31^3=66347, 37^3+41^3+43^3=199081, 43^3+47^3+53^3=332207,..
		

Links

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

Crossrefs

Cf. A133530, A034962

Programs

Mathematica

lst={};Do[p=Prime[n]^3+Prime[n+1]^3+Prime[n+2]^3;If[PrimeQ[p],AppendTo[lst,p]],{n,6!}];lst
Select[Total[#^3]&/@Partition[Prime[Range[100]],3,1],PrimeQ] (* Harvey P. Dale, Nov 04 2015 *)

Extensions

Edited by Charles R Greathouse IV, Oct 12 2009