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 this_sequence A110386 A027732 A073698

Adjacent sequences: A081502 A081503 A081504 this_sequence 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.