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 A112721 #31 Jul 21 2025 21:41:15
%S A112721 1,44,84,5676,32186,35097,128476,527048,700298,12141094,43874279,
%T A112721 58730238,303387848,2277279428
%N A112721 Numbers m such that phi(m) = d_1^1 + d_2^2 + ... + d_k^k where d_1 d_2 ... d_k is the decimal expansion of m.
%C A112721 a(15) > 6*10^10. - _Donovan Johnson_, Nov 09 2010
%C A112721 All terms of this sequence are less than 2 * 10^42. - _Charles R Greathouse IV_, May 11 2012
%C A112721 a(15) > 10^12. - _Giovanni Resta_, Apr 12 2017
%e A112721 phi(12141094) = 1^1 + 2^2 + 1^3 + 4^4 + 1^5 + 0^6 + 9^7 + 4^8 = 4848768 so 12141094 is in the sequence.
%t A112721 Do[d=IntegerDigits[n];k=Length[d];If[EulerPhi[n]==Sum[d[[j]]^j, {j, k}], Print[n]], {n, 30000000}]
%Y A112721 Cf. A000010, A032799, A035138, A112718, A112719, A112720.
%K A112721 base,fini,more,nonn
%O A112721 1,2
%A A112721 _Farideh Firoozbakht_, Sep 17 2005
%E A112721 a(11)-a(12) from _Farideh Firoozbakht_, Jan 04 2009
%E A112721 a(13)-a(14) from _Donovan Johnson_, Nov 09 2010