A153507 Primes p such that 2*p^3 + 3 is also prime.

2, 13, 17, 19, 23, 29, 43, 53, 83, 127, 157, 233, 239, 283, 347, 433, 509, 523, 617, 647, 769, 773, 823, 859, 883, 919, 937, 1093, 1117, 1163, 1213, 1223, 1327, 1483, 1499, 1627, 1657, 1709, 1777, 1823, 1877, 1907, 1913, 1999, 2069, 2129, 2137, 2203, 2357

Offset: 1

Author

Vincenzo Librandi, Dec 28 2008

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Programs

Magma

[p: p in PrimesUpTo(2500) | IsPrime(2*p^3 + 3)]; // Vincenzo Librandi, Oct 15 2012

Maple

a := proc (n) if isprime(n) = true and isprime(2*n^3+3) = true then n else end if end proc: seq(a(n), n = 1 .. 2500); # Emeric Deutsch, Jan 21 2009

Mathematica

Select[Prime[Range[500]], PrimeQ[2#^3 + 3] &] (* Harvey P. Dale, Jan 12 2011 *)

Extensions

Extended by Emeric Deutsch, Jan 21 2009