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 A055577 #22 Dec 13 2024 11:08:45 %S A055577 0,1,18,45,54,64 %N A055577 Numbers k such that the sum of digits of k^6 is equal to k. %e A055577 a(2) = 18 because 18^6 = 34012224 and 3+4+0+1+2+2+2+4 = 18 %t A055577 Select[Range[0,100],#==Total[IntegerDigits[#^6]]&] (* _Harvey P. Dale_, Oct 26 2011 *) %o A055577 (Magma) [n: n in [0..100] | &+Intseq(n^6) eq n ]; // _Vincenzo Librandi_, Feb 23 2015 %o A055577 (Sage) [n for n in (0..70) if sum((n^6).digits()) == n] # _Bruno Berselli_, Feb 23 2015 %o A055577 (PARI) isok(k)=sumdigits(k^6)==k \\ _Patrick De Geest_, Dec 13 2024 %Y A055577 Cf. A055567, A055572, A046459, A055575, A055576, A226971. %Y A055577 Cf. A152147. %K A055577 base,fini,full,nonn %O A055577 1,3 %A A055577 _Henry Bottomley_, May 26 2000