login
Primes p of the form prime(n+1)^3+prime(n)^3-1.
2

%I #6 Nov 06 2019 17:56:36

%S 151,467,3527,7109,183329,432359,2123027,2317769,4296473,8988209,

%T 14156927,20483497,27649439,43441973,62519309,95699141,127051973,

%U 148178519,161245727,201100409,242622269,301396087,322007743,432003599

%N Primes p of the form prime(n+1)^3+prime(n)^3-1.

%C 5^3+3^3-1=151,...

%H Harvey P. Dale, <a href="/A176138/b176138.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Table[Prime[n+1]^3+Prime[n]^3-1,{n,7!}],PrimeQ[ # ]&]

%t Select[Total[#]-1&/@Partition[Prime[Range[150]]^3,2,1],PrimeQ] (* _Harvey P. Dale_, Nov 06 2019 *)

%Y Cf. A000040, A176134, A176135, A176136

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Apr 09 2010