1,1
m=4: 4^4+3^4=256+81=337 prime.
Exponents for first 4 terms are {0,1,4,16}.
Do[s=3^w+4^w; If[IntegerQ[w/100], Print[{w}]]; If[PrimeQ[s], Print[{w, s}]], {w, 0, 3400}]
Do[ If[ PrimeQ[3^n+4^n], Print[3^n+4^n]], {n, 0, 10000}]
Sequence in context: A048122 A144787 A118910 * A176748 A110386 A027732
Adjacent sequences: A081502 A081503 A081504 * A081506 A081507 A081508
nonn
Labos E. (labos(AT)ana.sote.hu), Apr 15 2003
a(5)>10^10000, so the next term (if it exists) is too large to include.
