%I A069969
%S A069969 3,5,7,34,42,83,223,342,443,464,522,563,584,653,2194,2554,3623,5704,
%T A069969 6904,8084,8134,8254,14455,24653,29393,48023,50882,52834,56663,58483,
%U A069969 58814,65893,66784,82315,83324,91373,98254
%N A069969 Numbers n such that phi(reverse(n)) = phi(reverse(n-1)) + phi(reverse(n-2)).
%e A069969 phi(reverse(223)) = phi(322) = 132 = 72 + 60 = phi(222) + phi(122) = 
               phi(reverse(223-1)) + phi(reverse(223-2)).
%t A069969 rev[n_] := FromDigits[Reverse[IntegerDigits[n]]]; Select[Range[3, 10^5], 
               EulerPhi[rev[ # ]] == EulerPhi[rev[ # - 1]] + EulerPhi[rev[ # - 2]] 
               &]
%Y A069969 Sequence in context: A029508 A095714 A137864 this_sequence A067232 A106115 
               A155034
%Y A069969 Adjacent sequences: A069966 A069967 A069968 this_sequence A069970 A069971 
               A069972
%K A069969 base,nonn
%O A069969 1,1
%A A069969 Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Apr 29 2002