A137654 Numbers k such that 12^k + 11 is prime.
1, 4, 15, 157, 432, 6008, 14821, 23812, 24192, 53821
Offset: 1
Programs
-
Mathematica
Do[If[PrimeQ[(12^n+11)],Print[n]],{n,2000}] Select[Range[500],PrimeQ[12^#+11]&] (* Harvey P. Dale, Oct 15 2015 *)
-
PARI
is(n)=ispseudoprime(12^n+11) \\ Charles R Greathouse IV, Jun 06 2017
Extensions
a(6) from Jinyuan Wang, Mar 03 2020
a(7)-a(9) from Michael S. Branicky, Mar 15 2023
a(10) from Michael S. Branicky, Nov 30 2024
Comments