OFFSET
1,2
COMMENTS
a(15) > 2*10^12. - Giovanni Resta, Aug 12 2019
EXAMPLE
phi(129 + 1) = 48 = reverse(84) = reverse(phi(129)), so 129 is a term of the sequence.
MATHEMATICA
Select[Range[10^5], FromDigits[Reverse[IntegerDigits[EulerPhi[ # ]]]] == EulerPhi[ # + 1] &]
PROG
(PARI) isok(n) = eulerphi(n+1) == fromdigits(Vecrev(digits(eulerphi(n)))); \\ Michel Marcus, Aug 12 2019
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Joseph L. Pe, Sep 18 2002
EXTENSIONS
a(8)-a(14) from Giovanni Resta, Aug 12 2019
STATUS
approved