|
|
A073574
|
|
Numbers n such that n^3 + 6 is prime.
|
|
1
|
|
|
1, 5, 7, 13, 17, 41, 73, 77, 101, 103, 133, 143, 145, 161, 173, 181, 187, 251, 271, 283, 293, 313, 325, 391, 395, 425, 461, 497, 503, 511, 523, 581, 593, 595, 647, 671, 703, 733, 745, 803, 805, 815, 833, 847, 853, 875, 941, 965, 973, 997, 1001, 1021, 1085, 1091, 1097, 1111, 1141, 1183
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
|
|
MATHEMATICA
|
Select[ Range[ 950 ], PrimeQ[ #^3+6 ] & ]
Select[Range[1, 1201, 2], PrimeQ[#^3+6]&] (* Because all terms must be odd, there is no need to test even numbers *) (* Harvey P. Dale, Oct 03 2018 *)
|
|
PROG
|
(Magma)[n: n in [0..1500]|IsPrime(n^3+6)]; // Vincenzo Librandi, Dec 16 2010
(PARI) is(n)=isprime(n^3+6) \\ Charles R Greathouse IV, Jun 12 2017
|
|
CROSSREFS
|
Cf. A067200 (n^3+2 is prime).
Sequence in context: A106069 A339691 A076294 * A092110 A171518 A336581
Adjacent sequences: A073571 A073572 A073573 * A073575 A073576 A073577
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Zak Seidov, Sep 01 2002
|
|
EXTENSIONS
|
More terms from Vincenzo Librandi, Dec 16 2010
|
|
STATUS
|
approved
|
|
|
|