A104906 Numbers n such that d(n)*reversal(n)=phi(n), where d(n) is number of positive divisors of n.
1, 10, 831, 8310
Offset: 1
Examples
8310 is in the sequence because d(8310)=16; reversal(8310)=138; phi(8310)=2208 & 16*138=2108.
Programs
-
Mathematica
reversal[n_]:= FromDigits[Reverse[IntegerDigits[n]]]; Do[If[DivisorSigma[0, n]*reversal[n] == EulerPhi[n], Print[n]], {n, 350000000}]
Comments