|
Search: id:A076443
|
|
|
| A076443 |
|
Even-digit palindromic perfect powers. |
|
+0
2
|
|
| 1331, 698896, 1003003001, 637832238736, 1000030000300001, 1033394994933301, 1331399339931331
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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 and A075786.
Sequence in context: A036528 A052052 A122659 this_sequence A052076 A013795 A013860
Adjacent sequences: A076440 A076441 A076442 this_sequence A076444 A076445 A076446
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 12 2002
|
|
|
Search completed in 0.002 seconds
|
