A074241 Numbers n such that phi(n+1) = reverse(phi(n)).
1, 3, 15, 129, 833, 5044, 59815, 267335, 297863, 9633693, 4642779313, 62935243460, 91770096041, 1648209018135
Offset: 1
Examples
phi(129 + 1) = 48 = reverse(84) = reverse(phi(129)), so 129 is a term of the sequence.
Programs
-
Mathematica
Select[Range[10^5], FromDigits[Reverse[IntegerDigits[EulerPhi[ # ]]]] == EulerPhi[ # + 1] &]
-
PARI
isok(n) = eulerphi(n+1) == fromdigits(Vecrev(digits(eulerphi(n)))); \\ Michel Marcus, Aug 12 2019
Extensions
a(8)-a(14) from Giovanni Resta, Aug 12 2019
Comments