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,1

Links

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

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 *)

Prog

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

Crossrefs

Sequence in context: A065245 A158845 A163786 * A124277 A038889 A152652

Adjacent sequences: A153504 A153505 A153506 * A153508 A153509 A153510

Keyword

nonn,easy

Author

Vincenzo Librandi, Dec 28 2008

Extensions

Extended by Emeric Deutsch, Jan 21 2009

Status

approved