A273814 Numbers k such that (12^k - 7^k)/5 is prime.
2, 3, 7, 13, 47, 89, 139, 523, 1051
Offset: 1
Programs
-
Maple
A273814:=n->`if`(isprime((12^n - 7^n)/5), n, NULL): seq(A273814(n), n=1..10^3); # Wesley Ivan Hurt, Jun 01 2016
-
Mathematica
Select[Range[1, 10000], PrimeQ[(12^# - 7^#)/5] &]
-
PARI
for(n=1, 10000, if(isprime((12^n - 7^n)/5), print1(n, ", ")))
Comments