%I A135066
%S A135066 2,7,11,101
%N A135066 Primes p such that p^3 is a palindrome.
%C A135066 Note that all first 4 listed terms are the palindromes. Corresponding 
               palindromic cubes a(n)^3 are listed in A135067 = {8, 343, 1331, 1030301, 
               ...}. PrimePi[ a(n) ] = {1, 4, 5, 26, ...}.
%H A135066 P. De Geest, <a href="http://www.worldofnumbers.com/cube.htm">Palindromic 
               Cubes</a>
%F A135066 a(n) = A135067(n)^(1/3).
%e A135066 a(3) = 11 because 11^3 = 1331 is a palindrome.
%t A135066 Do[ p = Prime[n]; f = p^3; If[ f == FromDigits[ Reverse[ IntegerDigits[ 
               f ] ] ], Print[ {n, p, f} ]], {n, 1, 200000} ]
%Y A135066 Cf. A002780 = Cube is a palindrome. Cf. A069748 = Numbers n such that 
               n and n^3 are both palindromes. Cf. A002781 = Palindromic cubes. 
               Cf. A135067 = Palindromic cubes p^3, where p is a prime.
%Y A135066 Sequence in context: A106013 A073623 A101592 this_sequence A085315 A002780 
               A069885
%Y A135066 Adjacent sequences: A135063 A135064 A135065 this_sequence A135067 A135068 
               A135069
%K A135066 more,nonn,base
%O A135066 1,1
%A A135066 Alexander Adamchuk (alex(AT)kolmogorov.com), Nov 16 2007