|
%I #4 Nov 13 2017 10:05:48
%S 97,45053,56501,21601,104021,426941,345601,437401,1351421,4409677,
%T 3936727,5880727,4608701,5326901,6393941,2160001,6566741,2613601,
%U 8323253,9750581,13392343,10233341,30060757,48278539,23380183,22018301
%N Primes p of the form prime(n+1)^3-prime(n)^3-1.
%C 5^3-3^3-1=97,...
%t Select[Table[Prime[n+1]^3-Prime[n]^3-1,{n,6!}],PrimeQ[ # ]&]
%t Select[#[[2]]-#[[1]]-1&/@Partition[Prime[Range[200]]^3,2,1],PrimeQ] (* _Harvey P. Dale_, Nov 13 2017 *)
%Y Cf. A000040, A176134
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 09 2010
|
