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
Links
- Karl-Heinz Hofmann, Visualization of n = 0 to 4.
Crossrefs
Programs
-
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