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
Keywords
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Programs
-
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 *) -
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