|
%I #12 Sep 23 2013 14:35:33
%S 11,37,191,857,2333,3061,4943,6121,9011,22817,33203,89533,105527,
%T 114193,341993,421381,536771,931087,1005041,1294561,1386443,1583047,
%U 1911493,2416061,4866481,5086811,5199427,5429621,7376141,7814207,8903071,9399097,9739811,9913213
%N Primes of the form n^3 + (n+1)^3 + 2.
%C Primes which are sum of two consecutive cubes plus 2.
%H K. D. Bajpai, <a href="/A227412/b227412.txt">Table of n, a(n) for n = 1..5000</a>
%F Primes of the form 2*n^3 + 3*n^2 + 3*n + 3.
%e a(2)=37: k^3+(k+1)^3+2= 2^3+3^3+2= 8+27+2= 37 which is prime.
%e a(3)=191: k^3+(k+1)^3+2= 4^3+5^3+2= 64+125+2= 191 which is prime.
%p KD:= proc() local a; a:= (k)^3+(k+1)^3+2; if isprime(a) then RETURN(a): fi;end: seq(KD(),k=1..500);
%t Select[Table[(x^3+(x+1)^3+2), {x, 1000}], PrimeQ]
%Y Cf. A027862, A227340.
%K nonn
%O 1,1
%A _K. D. Bajpai_, Sep 22 2013
|
