A076443 Even-digit palindromic perfect powers.

1331, 698896, 1003003001, 637832238736, 1000030000300001, 1033394994933301, 1331399339931331, 4099923883299904, 1000000300000030000001, 1003303931991393033001, 1030331909339091330301, 1331003993003993001331, 6916103777337773016196

Offset

1,1

Links

Chai Wah Wu, Table of n, a(n) for n = 1..40

Example

a(1) = 11^3; a(2) = (4*11*19)^2; a(3) = (7*11*13)^3; a(4) = (4*7*11*2593)^2; a(5) = (11*9091)^3, a(6) = (7*11*13*101)^3, a(7) = (11*73*137)^3, etc.

Mathematica

a = {}; Do[ q = IntegerDigits[n]; p = FromDigits[ Join[q, Reverse[q]]]; If[ Apply[ GCD, Last[ Transpose[ FactorInteger[p]]]] > 1, a = Append[a, p]; Print[p]], {n, 1, 4000000}]

Crossrefs

Cf. A001597, A075786.

Sequence in context: A052052 A122659 A226716 * A278936 A263613 A052076

Adjacent sequences: A076440 A076441 A076442 * A076444 A076445 A076446

Keyword

base,nonn

Author

Robert G. Wilson v, Oct 12 2002

Extensions

a(8)-a(13) from Donovan Johnson, Oct 03 2011

Status

approved