1,1

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

Sequence in context: A137131 A117721 A058469 this_sequence A067481 A058433 A154998

Adjacent sequences: A081505 A081506 A081507 this_sequence A081509 A081510 A081511

nonn

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