A037030 Numbers n such that 666*n + 1 is prime.

3, 5, 7, 10, 12, 16, 22, 23, 25, 26, 32, 35, 36, 38, 40, 46, 50, 51, 57, 58, 61, 63, 65, 67, 68, 71, 73, 77, 78, 80, 85, 87, 91, 98, 100, 102, 105, 107, 123, 137, 138, 140, 142, 143, 150, 155, 158, 161, 165, 166, 172, 177, 178, 180, 187, 190, 191, 192, 197, 200, 205

Offset

1,1

Links

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

Mathematica

f[n_]:=666*n+1; lst={}; Do[p=f[n]; If[PrimeQ[p], AppendTo[lst, n]], {n, 0, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jul 02 2009 *)
Select[Range[3, 1000], PrimeQ[666 # + 1] &] (* Vincenzo Librandi, May 19 2014 *)

Prog

(Magma) [n: n in [1..1000] | IsPrime(666*n + 1)]; // Vincenzo Librandi, Nov 17 2010
(PARI) is(n)=isprime(666*n+1) \\ Charles R Greathouse IV, Feb 17 2017

Crossrefs

Cf. A037029.

Sequence in context: A182136 A335408 A211266 * A277719 A251553 A075782

Adjacent sequences: A037027 A037028 A037029 * A037031 A037032 A037033

Keyword

nonn,easy

Author

G. L. Honaker, Jr.

Extensions

More terms from Michel ten Voorde

Status

approved