|
%I #8 Aug 04 2016 12:34:04
%S 3529,54181,148429,354257,2520073,11665081,14156929,15525973,22786651,
%T 26301257,35166041,39367621,44853229,62519311,110621827,132899131,
%U 141977989,148178521,161245729,177457157,259135757,615109951,648551359
%N Primes of the form prime(n+1)^3+prime(n)^3+1.
%H Charles R Greathouse IV, <a href="/A176139/b176139.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Table[Prime[n+1]^3+Prime[n]^3+1,{n,6!}],PrimeQ[ # ]&]
%t Select[Total/@Partition[Prime[Range[150]]^3,2,1]+1,PrimeQ] (* _Harvey P. Dale_, Aug 04 2016 *)
%o (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
%Y Cf. A000040, A176134, A176135, A176136, A176138.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 09 2010
|
