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: A034248 A158750 A145744 this_sequence A145234 A048847 A093671

Adjacent sequences: A081506 A081507 A081508 this_sequence A081510 A081511 A081512

nonn

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

a(5) has more than 300 decimal digits;