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 A112720 #13 Aug 11 2020 01:50:29
%S A112720 1,2,6883,1132856,11059812
%N A112720 Numbers m such that phi(m) = 1^d_1 + 2^d_2 + ... + k^d_k where d_1 d_2 ... d_k is the decimal expansion of m.
%C A112720 There is no further term up to 7*10^7.
%C A112720 a(6) > 10^12. - _Giovanni Resta_, Apr 13 2017
%C A112720 This sequence is full because for k > 10 and 10^k <= m < 10^(k+1), phi(m) > 10^k/f(10^k) > Sum_{i=1..k+1} i^9 >= Sum_{i=1..k+1} i^d_i, where f(n) = exp(gamma)*log(log(n)) + 2.5/log(log(n)) is given in A057635. - _Jinyuan Wang_, Aug 02 2020
%e A112720 phi(11059812) = 1^1 + 2^1 + 3^0 + 4^5 + 5^9 + 6^8 + 7^1 + 8^2 so 11059812 is in the sequence.
%t A112720 Do[d=IntegerDigits[n];k=Length[d];If[EulerPhi[n]==Sum[j^d[[j]], {j, k}], Print[n]], {n, 70000000}]
%Y A112720 Cf. A035138, A057635, A112718, A112719, A112721.
%K A112720 nonn,base,fini,full
%O A112720 1,2
%A A112720 _Farideh Firoozbakht_, Sep 17 2005