|
%I #8 Jun 06 2017 14:24:39
%S 2,3,5,6,12,14,17,20,26,35,36,38,39,48,50,65,66,71,72,74,80,87,89,90,
%T 96,105,107,108,113,114,119,120,122,132,134,135,137,144,146,152,155,
%U 156,158,162,167,168,185,186,200,201,207,213,221,225,230,231,236,237,248
%N Numbers n such that n^2+(n+1)^3 is prime.
%C All terms are {0,2} mod 3. - _Zak Seidov_, Dec 15 2013
%H Zak Seidov, <a href="/A128958/b128958.txt">Table of n, a(n) for n = 1..2000</a>
%e 2^2+3^3=31, 3^2+4^3=73, 5^2+6^3=241, 6^2+7^3=379, 12^2+13^3=2341 all primes.
%t Select[Range[0,300],PrimeQ[ #^2+(#+1)^3]&]
%o (PARI) is(n)=isprime(n^2+(n+1)^3) \\ _Charles R Greathouse IV_, Jun 06 2017
%Y Corresponding primes are in A155933. - _Zak Seidov_, Dec 15 2013
%K nonn,easy
%O 1,1
%A _Zak Seidov_, Apr 28 2007
|
