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,1

Links

Table of n, a(n) for n=1..34.

Mathematica

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

Crossrefs

Cf. A001597 & A076442.

Sequence in context: A215713 A120777 A091095 * A086891 A117636 A285634

Adjacent sequences: A075784 A075785 A075786 * A075788 A075789 A075790

Keyword

easy,base,nonn

Author

Zak Seidov, Oct 10 2002

Extensions

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

Status

approved