1,1
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: A158750 A145744 A174309 * A177224 A145234 A048847
Adjacent sequences: A081506 A081507 A081508 * A081510 A081511 A081512
nonn
Labos E. (labos(AT)ana.sote.hu), Apr 15 2003
a(5) has more than 300 decimal digits;
