1,2
Table of n, a(n) for n=1..5.
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 * A068844 A139905 A102273
Adjacent sequences: A081507 A081508 A081509 * A081511 A081512 A081513
more,nonn
Labos E. (labos(AT)ana.sote.hu), Apr 15 2003
approved
