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 * A168127 A113871 A186451
Adjacent sequences: A081503 A081504 A081505 * A081507 A081508 A081509
nonn
Labos E. (labos(AT)ana.sote.hu), Apr 15 2003