%I A075786
%S A075786 1,4,8,9,121,343,484,676,1331,10201,12321,14641,40804,44944,69696,94249,
%T A075786 698896,1002001,1030301,1234321,1367631,4008004,5221225,6948496,
%U A075786 100020001,102030201,104060401,121242121,123454321,125686521,400080004
%N A075786 Palindromic perfect powers.
%C A075786 Up to 10^12, there are only 43 perfect powers which are palindromic.
%t A075786 a = {}; Do[q = IntegerDigits[n]; p = FromDigits[ Join[ q, Reverse[ Drop[q, 
               -1]]]]; If[ Apply[ GCD, Last[ Transpose[ FactorInteger[p]]]] > 1, 
               a = Append[a, p]]; p = FromDigits[ Join[ q, Reverse[q]]]; If[ Apply[ 
               GCD, Last[ Transpose[ FactorInteger[p]]]] > 1, a = Append[a, p]], 
               {n, 1, 10^5}]
%Y A075786 Cf. A001597, A076443.
%Y A075786 Sequence in context: A118895 A110811 A128827 this_sequence A046450 A077271 
               A072037
%Y A075786 Adjacent sequences: A075783 A075784 A075785 this_sequence A075787 A075788 
               A075789
%K A075786 easy,base,nonn
%O A075786 1,2
%A A075786 Zak Seidov (zakseidov(AT)yahoo.com), Oct 10 2002
%E A075786 Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 11 
               2002