This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A101699 #16 Jul 14 2025 07:47:26
%S A101699 1,23,66666,13179592
%N A101699 Numbers m such that phi(m) = d_1*d_1!+d_2*d_2!+...+d_k*d_k! where d_1 d_2 ... d_k is the decimal expansion of m.
%e A101699 13179592 is in the sequence because phi(13179592) = 1*1!+3*3!+1*1!+7*7!+9*9!+5*5!+9*9!+2*2!.
%t A101699 Do[If[EulerPhi[n] == Apply[Plus, IntegerDigits[n]*IntegerDigits[n]! ], Print[n]], {n, 30000000}]
%t A101699 Select[Range[132*10^5],EulerPhi[#]==Total[# #!&/@IntegerDigits[#]]&] (* _Harvey P. Dale_, Mar 06 2023 *)
%Y A101699 Cf. A101697, A101698.
%K A101699 nonn,base,fini,more
%O A101699 1,2
%A A101699 _Farideh Firoozbakht_, Dec 19 2004