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 * A067481 A058433 A154998
Adjacent sequences: A081505 A081506 A081507 * A081509 A081510 A081511
nonn
Labos E. (labos(AT)ana.sote.hu), Apr 15 2003