login
A362954
Numbers k such that k + the sum of the fourth powers of its digits is again a fourth power.
3
0, 6047, 7518, 8127, 12207, 25247, 50000, 71966, 77326, 89582, 156156, 376189, 384624, 384640, 599611, 611356, 700158, 794139, 796715, 800558, 1172829, 1329051, 1329324, 1329340, 1488080, 1492525, 1862190, 2546894, 2547885, 5295852, 5302286, 5755548, 6244080, 6246510, 7291980, 7869294
OFFSET
0,2
PROG
(PARI) select( {is(n, p=4)=ispower(vecsum([d^p|d<-digits(n)])+n, p)}, [0..10^5])
(Python)
aupto = 7869300
A362954 = []
A000583 = set(fp**4 for fp in range(0, int(aupto**(1/4)+3)))
for n in range(0, aupto+1):
if n + sum(int(digit)**4 for digit in str(n)) in A000583: A362954.append(n)
print(A362954) # Karl-Heinz Hofmann, Jun 02 2023
CROSSREFS
Cf. A000583 (4th powers), A055013 (sum of 4th powers of decimal digits of n).
Cf. A362953 (the same for 3rd powers).
Sequence in context: A157652 A264949 A237961 * A175160 A184195 A269935
KEYWORD
nonn,base
AUTHOR
Will Gosnell and M. F. Hasler, May 09 2023
STATUS
approved