OFFSET
1,1
MATHEMATICA
edsQ[n_]:=And@@EvenQ[Total[IntegerDigits[#]]&/@(Prime[Range[5]]^n)]; Select[Range[1600], edsQ] (* Harvey P. Dale, Apr 21 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 26 2006
STATUS
approved