A176139 Primes of the form prime(n+1)^3+prime(n)^3+1.

3529, 54181, 148429, 354257, 2520073, 11665081, 14156929, 15525973, 22786651, 26301257, 35166041, 39367621, 44853229, 62519311, 110621827, 132899131, 141977989, 148178521, 161245729, 177457157, 259135757, 615109951, 648551359

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Mathematica

Select[Table[Prime[n+1]^3+Prime[n]^3+1, {n, 6!}], PrimeQ[ # ]&]
Select[Total/@Partition[Prime[Range[150]]^3, 2, 1]+1, PrimeQ] (* Harvey P. Dale, Aug 04 2016 *)

Prog

(PARI) p=2; forprime(q=3, 1e4, if(isprime(t=p^3+q^3+1), print1(t", ")); p=q) \\ Charles R Greathouse IV, Apr 15 2012

Crossrefs

Cf. A000040, A176134, A176135, A176136, A176138.

Sequence in context: A330841 A035779 A108003 * A354542 A020412 A220985

Adjacent sequences: A176136 A176137 A176138 * A176140 A176141 A176142

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Apr 09 2010

Status

approved