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 A362954 #16 Aug 02 2023 14:00:33 %S A362954 0,6047,7518,8127,12207,25247,50000,71966,77326,89582,156156,376189, %T A362954 384624,384640,599611,611356,700158,794139,796715,800558,1172829, %U A362954 1329051,1329324,1329340,1488080,1492525,1862190,2546894,2547885,5295852,5302286,5755548,6244080,6246510,7291980,7869294 %N A362954 Numbers k such that k + the sum of the fourth powers of its digits is again a fourth power. %H A362954 Karl-Heinz Hofmann, <a href="/A362954/a362954.png">Visualization of n = 0 to 4.</a> %o A362954 (PARI) select( {is(n,p=4)=ispower(vecsum([d^p|d<-digits(n)])+n,p)}, [0..10^5]) %o A362954 (Python) %o A362954 aupto = 7869300 %o A362954 A362954 = [] %o A362954 A000583 = set(fp**4 for fp in range(0, int(aupto**(1/4)+3))) %o A362954 for n in range(0, aupto+1): %o A362954 if n + sum(int(digit)**4 for digit in str(n)) in A000583: A362954.append(n) %o A362954 print(A362954) # _Karl-Heinz Hofmann_, Jun 02 2023 %Y A362954 Cf. A000583 (4th powers), A055013 (sum of 4th powers of decimal digits of n). %Y A362954 Cf. A362953 (the same for 3rd powers). %K A362954 nonn,base %O A362954 0,2 %A A362954 _Will Gosnell_ and _M. F. Hasler_, May 09 2023