A128073 Numbers k such that (3^k + 16^k)/19 is prime.
5, 17, 61, 673, 919, 2089, 86939
Offset: 1
Crossrefs
Programs
-
Mathematica
k=16; Do[ p=Prime[n]; f=(3^p+k^p)/(k+3); If[ PrimeQ[f], Print[p]], {n,1,100} ]
-
PARI
is(n)=isprime((3^n+16^n)/19) \\ Charles R Greathouse IV, Feb 17 2017
Extensions
a(5) from Alexander Adamchuk, Feb 14 2007
a(6) and a(7) from Robert Price, Jun 29 2013
Comments