A037029 Primes of the form 666*n + 1.

1999, 3331, 4663, 6661, 7993, 10657, 14653, 15319, 16651, 17317, 21313, 23311, 23977, 25309, 26641, 30637, 33301, 33967, 37963, 38629, 40627, 41959, 43291, 44623, 45289, 47287, 48619, 51283, 51949, 53281, 56611, 57943, 60607, 65269

Offset

1,1

Links

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

Mathematica

f[n_]:=666*n+1; lst={}; Do[p=f[n]; If[PrimeQ[p], AppendTo[lst, p]], {n, 0, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jul 02 2009 *)
Select[Table[666n+1, {n, 0, 500}], PrimeQ] (* Vincenzo Librandi, Dec 08 2011 *)

Prog

(Magma) [a: n in [0..100] | IsPrime(a) where a is 666*n + 1]; // Vincenzo Librandi, Dec 08 2011

Crossrefs

Cf. A037030.

Sequence in context: A031808 A167292 A230202 * A048517 A048518 A043416

Adjacent sequences: A037026 A037027 A037028 * A037030 A037031 A037032

Keyword

nonn,easy

Author

G. L. Honaker, Jr.

Status

approved