1,1

m=2: 2^2+3^2+4^2=4+9+16=29 prime.

Do[s=2^w+3^w+4^w; If[IntegerQ[w/100], Print[{w}]]; If[PrimeQ[s], Print[{w, s}]], {w, 0, 1000}]

Sequence in context: A001947 A049038 A091646 this_sequence A113871 A092251 A064570

Adjacent sequences: A081503 A081504 A081505 this_sequence A081507 A081508 A081509

nonn

Labos E. (labos(AT)ana.sote.hu), Apr 15 2003