A075787 Even-digit perfect powers.

4, 8, 64, 400, 484, 2048, 4624, 6084, 6400, 8000, 8464, 26244, 28224, 40000, 40804, 48400, 64000, 68644, 88804, 228484, 242064, 248004, 446224, 462400, 608400, 640000, 806404, 824464, 846400, 868624, 2022084, 2226064, 2244004, 2624400

Offset: 1

Author

Zak Seidov, Oct 10 2002

Keywords

• easy
• base
• nonn

Crossrefs

Cf. A001597, A076442.

Programs

Mathematica

Do[ If[ Union[ EvenQ[ IntegerDigits[n]]] == {True} && Apply[GCD, Last[ Transpose[ FactorInteger[n]]]] > 1, Print[n]], {n, 4, 2822399, 2}]

Extensions

Edited, corrected and extended by Robert G. Wilson v, Oct 11 2002