OFFSET
1,1
EXAMPLE
reverse(48776) = 67784 = 19008 (mod 48776) and 19008 = phi(48776), so 48776 is a term of the sequence.
MATHEMATICA
Select[Range[10^5], Mod[ FromDigits[Reverse[IntegerDigits[n]]], # ] == EulerPhi[ # ] &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph L. Pe, Jul 21 2002
EXTENSIONS
More terms from Sean A. Irvine, Sep 28 2024
STATUS
approved