A137652 Numbers k such that 12^k + 5 is prime.
1, 2, 3, 8, 21, 26, 31, 50, 55, 69, 392, 661, 12648, 31038
Offset: 1
Programs
-
Mathematica
Do[If[PrimeQ[(12^n+5)],Print[n]],{n,2000}]
-
PARI
is(n)=ispseudoprime(12^n+5) \\ Charles R Greathouse IV, Jun 06 2017
Extensions
a(13) from Jinyuan Wang, Mar 05 2020
a(14) from Michael S. Branicky, Jul 07 2024
Comments