A173629 Numbers k with property that p = 10k + 1, p^3 + 6, p^3 + 12 and p^3 + 18 are all prime.

235, 699, 4945, 19375, 22378, 76978, 77143, 77934, 88021, 90387, 106441, 106623, 138319, 144715, 174562, 189837, 197455, 199951, 201541, 202542, 243583, 247642, 269583, 280591, 353104, 367912, 418389, 449980, 456376, 484704, 504727, 506923

Offset

1,1

Links

Table of n, a(n) for n=1..32.

Mathematica

okQ[n_]:=Module[{n3=n^3}, And@@PrimeQ[{n3+6, n3+12, n3+18}]]
Floor[#/10]&/@Select[Select[Table[10n+1, {n, 0, 600000}], PrimeQ], okQ] (* Harvey P. Dale, Dec 16 2010 *)

Prog

(Magma) [n: n in [0..600000]| IsPrime(10*n+1) and IsPrime(1000*n^3+300*n^2 +30*n+7) and IsPrime(1000*n^3+300*n^2+30*n+13) and IsPrime(1000*n^3+ 300*n^2+30*n+19)] // Vincenzo Librandi, Dec 13 2010

Crossrefs

a(n) = (A173628(n) - 1)/10.

Sequence in context: A132903 A247474 A147148 * A097487 A091427 A068663

Adjacent sequences: A173626 A173627 A173628 * A173630 A173631 A173632

Keyword

nonn

Author

Zak Seidov, Nov 09 2010

Status

approved