|
%I
%S 1,11,23,59,399
%N Numbers n such that 1+2^n+4^n+6^n is prime.
%e m=1: 1+2+4+6=13 prime.
%t 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}]
%K more,nonn
%O 1,2
%A Labos E. (labos(AT)ana.sote.hu), Apr 15 2003
|
