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 A055575 #25 Dec 11 2024 09:28:01 %S A055575 0,1,7,22,25,28,36 %N A055575 Sum of digits of n^4 is equal to n. %e A055575 7 is a member because 7^4 = 2401 and 2+4+0+1 = 7. %t A055575 Select[Range[0, 50], #==Total[IntegerDigits[#^4]] &] (* _Vincenzo Librandi_, Feb 23 2015 *) %o A055575 (Magma) [n: n in [0..50] | &+Intseq(n^4) eq n ]; // _Vincenzo Librandi_, Feb 23 2015 %o A055575 (Sage) [n for n in (0..50) if sum((n^4).digits()) == n] # _Bruno Berselli_, Feb 23 2015 %o A055575 (PARI) isok(k)=sumdigits(k^4)==k \\ _Patrick De Geest_, Dec 10 2024 %Y A055575 Cf. A055565, A055570, A046459, A055576, A055577. %Y A055575 Cf. A152147. %K A055575 base,fini,full,nonn %O A055575 1,3 %A A055575 _Henry Bottomley_, May 26 2000