A122853 Numbers k such that (3^k + 5^k)/8 = A074606(k)/8 is a prime.
3, 5, 7, 17, 19, 109, 509, 661, 709, 1231, 12889, 13043, 26723, 43963, 44789
Offset: 1
Programs
-
Mathematica
Do[f=5^n+3^n;If[PrimeQ[f/2^3],Print[{n,f/2^3}]],{n,1,1231}]
-
PARI
select(n->isprime((3^n + 5^n)/8), vector(2000,i,i)) \\ Charles R Greathouse IV, Feb 13 2011
Extensions
a(11)-a(15) from Robert Price, Apr 28 2012
Comments