|
| |
|
|
A153507
|
|
Primes n such that 2*n^3+3 is also prime.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| For n=43, 2*n^3+3=159017; n=769, 2*n^3+3= 909513221
|
|
|
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); [From Emeric Deutsch (deutsch(AT)duke.poly.edu), Jan 21 2009]
|
|
|
MATHEMATICA
| Select[Prime[Range[500]], PrimeQ[2#^3 + 3] &] (* From Harvey P. Dale, Jan 12 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A065245 A158845 A163786 * A124277 A038889 A152652
Adjacent sequences: A153504 A153505 A153506 * A153508 A153509 A153510
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vincenzo Librandi (vincenzo.librandi(AT)tin.it), Dec 28 2008
|
|
|
EXTENSIONS
| Extended by Emeric Deutsch (deutsch(AT)duke.poly.edu), Jan 21 2009
|
| |
|
|
