login
A157201
Numbers k such that 66*k + 1 is prime.
1
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
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
KEYWORD
nonn,easy
AUTHOR
Kyle D. Balliet, Feb 25 2009
EXTENSIONS
More terms from Emeric Deutsch, Mar 06 2009
STATUS
approved