A362954 Numbers k such that k + the sum of the fourth powers of its digits is again a fourth power.

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

Links

Table of n, a(n) for n=0..35.

Karl-Heinz Hofmann, Visualization of n = 0 to 4.

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

Adjacent sequences: A362951 A362952 A362953 * A362955 A362956 A362957

Keyword

nonn,base

Author

Will Gosnell and M. F. Hasler, May 09 2023

Status

approved