login
Even-digit perfect powers.
2

%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