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,1

Links

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

Example

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

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

Crossrefs

Cf. A133530, A034962

Sequence in context: A251333 A157620 A174757 * A043591 A022256 A237925

Adjacent sequences: A164126 A164127 A164128 * A164130 A164131 A164132

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Aug 10 2009

Extensions

Edited by Charles R Greathouse IV, Oct 12 2009

Status

approved