A122003 Numbers n such that A024152(n) = 12^n - n^12 is prime.
1, 13, 25, 325, 833, 2087, 29773
Offset: 1
Programs
-
Mathematica
Do[f=12^n-n^12;If[PrimeQ[f],Print[{n,f}]],{n,1,833}]
-
PARI
is(n)=isprime(12^n-n^12) \\ Charles R Greathouse IV, Feb 17 2017
Extensions
a(6) from Robert G. Wilson v, Sep 14 2006
a(7) from Donovan Johnson, Feb 26 2008
Comments