A273403 Numbers k such that (10^k - 7^k)/3 is prime.
2, 31, 103, 617, 10253, 10691, 35353, 129587, 556441
Offset: 1
Links
- Jon Grantham and Andrew Granville, Fibonacci primes, primes of the form 2^n-k and beyond, arXiv:2307.07894 [math.NT], 2023.
Programs
-
Mathematica
Select[Range[1, 10000], PrimeQ[(10^# - 7^#)/3] &]
-
PARI
for(n=1, 10000, if(isprime((10^n - 7^n)/3), print1(n, ", ")))
Extensions
a(7)-a(9) from Jon Grantham, Jul 29 2023
Comments