%I A069747
%S A069747 1,2,3,4,5,6,7,8,9,535,767,20502,50805,53035,58085,58585,59395,82428,
%T A069747 88188,3269623,5808085,5846485,8110118,8666668,8818188,8872788,8875788
%N A069747 Numbers n such that n and phi(n) are both palindromes.
%C A069747 For an arithmetical function f, call the pairs (x,y) such that y = f(x) 
               and x, y are palindromes the "palinpairs" of f. a(n) is then the 
               sequence of abcissae of palinpairs of f(n) = phi(n).
%e A069747 phi(58085) = 46464, so 58085 is a term of the sequence.
%t A069747 isPalin[n_] := (n == FromDigits[Reverse[IntegerDigits[n]]]); Do[m = EulerPhi[n]; 
               If[isPalin[n] && isPalin[m], Print[{n, m}]], {n, 1, 10^6}]
%Y A069747 Sequence in context: A046469 A004893 A069282 this_sequence A124107 A112014 
               A145461
%Y A069747 Adjacent sequences: A069744 A069745 A069746 this_sequence A069748 A069749 
               A069750
%K A069747 base,nonn
%O A069747 1,2
%A A069747 Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Apr 22 2002
%E A069747 More terms from Jason Earls (zevi_35711(AT)yahoo.com), May 07 2002