A328660 Numbers k such that (10^k + 7^k)/17 is prime.
3, 5, 11, 19, 1259, 1399, 2539, 2843, 5857, 10589
Offset: 1
Programs
-
Magma
[p: p in PrimesUpTo(1000) | IsPrime((10^p+7^p) div 17)]; // Modified by Jinyuan Wang, Jan 22 2020
-
Mathematica
Select[Table[Prime[n], {n, 500}], PrimeQ[(10^#+7^#)/17] &] (* Modified by Jinyuan Wang, Jan 22 2020 *)
-
PARI
forprime(k=3, 10000, if(isprime((10^k+7^k)/17), print1(k, ", ")))
Comments