%I #5 Mar 30 2012 17:30:50
%S 4,8,64,400,484,2048,4624,6084,6400,8000,8464,26244,28224,40000,40804,
%T 48400,64000,68644,88804,228484,242064,248004,446224,462400,608400,
%U 640000,806404,824464,846400,868624,2022084,2226064,2244004,2624400
%N Even-digit perfect powers.
%t Do[ If[ Union[ EvenQ[ IntegerDigits[n]]] == {True} && Apply[GCD, Last[ Transpose[ FactorInteger[n]]]] > 1, Print[n]], {n, 4, 2822399, 2}]
%Y Cf. A001597 & A076442.
%K easy,base,nonn
%O 1,1
%A _Zak Seidov_, Oct 10 2002
%E Edited, corrected and extended by _Robert G. Wilson v_, Oct 11 2002