A157201 Numbers k such that 66*k + 1 is prime.

1, 3, 5, 6, 7, 10, 11, 13, 15, 17, 20, 22, 27, 32, 33, 35, 36, 41, 45, 46, 48, 50, 52, 53, 55, 56, 61, 62, 63, 66, 67, 70, 75, 80, 81, 82, 83, 87, 91, 92, 95, 96, 98, 102, 106, 108, 112, 113, 115, 117, 118, 122, 126, 130, 131, 132, 133, 137, 138, 140, 143, 148, 150, 151

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

If k = 33, then 66*k + 1 = 66(33) + 1 = 2179 (prime).

Maple

a := proc (n) if isprime(66*n+1) = true then n else end if end proc: seq(a(n), n = 1 .. 170); # Emeric Deutsch, Mar 06 2009

Mathematica

Select[Range[200], PrimeQ[66#+1]&] (* Harvey P. Dale, Feb 13 2024 *)

Prog

(PARI) is(n)=isprime(66*n+1) \\ Charles R Greathouse IV, Dec 27 2013

Crossrefs

Sequence in context: A304452 A292763 A176175 * A067351 A067350 A176651

Adjacent sequences: A157198 A157199 A157200 * A157202 A157203 A157204

Keyword

nonn,easy

Author

Kyle D. Balliet, Feb 25 2009

Extensions

More terms from Emeric Deutsch, Mar 06 2009

Status

approved