0,2
n=2: 2^2+3^2+4^2=4+9+16=29 prime.
Do[s=2^w+3^w+4^w; If[IntegerQ[w/100], Print[{w}]]; If[PrimeQ[s], Print[{w, s}]], {w, 0, 1000}]
Do[ If[ PrimeQ[2^w+3^w+4^w], Print[n]], {n, 0, 5000}]
Select[Range[5000], PrimeQ[Plus@@({2, 3, 4}^#)]&] (* From Harvey P. Dale, Jan 03 2011 *)
Sequence in context: A075401 A083145 A085920 * A115336 A119666 A087302
Adjacent sequences: A081504 A081505 A081506 * A081508 A081509 A081510
more,nonn,changed
Labos E. (labos(AT)ana.sote.hu), Apr 15 2003
a(8) & a(9) from Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 22 2005
