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 A048341 #15 Feb 16 2025 08:32:39 %S A048341 1,48625,397612 %N A048341 Equal to the sum of its digits raised to its reversed digits power (0^0=1). %H A048341 Harvey Heinz, <a href="http://www.magic-squares.net/narciss.htm">Narcissistic Numbers</a> %H A048341 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/NarcissisticNumber.html">Narcissistic Number</a> %e A048341 48625 = 4^5 + 8^2 + 6^6 + 2^8 + 5^4. %t A048341 sdrdp[n_]:=Module[{idn=IntegerDigits[n]},Total[#[[1]]^#[[2]]&/@(Thread[ {idn,Reverse[idn]}]/.{0,0}->{1,1})]]; Select[Range[400000],# == sdrdp[#]&] (* _Harvey P. Dale_, Jul 31 2013 *) %Y A048341 Cf. A046253, A032799. %K A048341 nonn,base,fini,full,bref %O A048341 0,2 %A A048341 _Patrick De Geest_, Feb 15 1999