1,2

m=1: 1+2+4+6=13 prime.

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

Sequence in context: A098100 A105967 A097473 this_sequence A068844 A139905 A102273

Adjacent sequences: A081507 A081508 A081509 this_sequence A081511 A081512 A081513

more,nonn

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