A187805 Numbers n such that (7^n + 6^n)/13 is prime.
3, 53, 83, 487, 743
Offset: 1
Programs
-
Mathematica
Select[ Prime[ Range[100000] ], PrimeQ[ (7^# + 6^#)/13 ]& ]
-
PARI
is(n)=ispseudoprime((7^n+6^n)/13) \\ Charles R Greathouse IV, Feb 17 2017
Comments