A383349 Numbers that have the same set of digits as the sum of 4th powers of its digits.

0, 1, 488, 668, 686, 848, 866, 884, 1346, 1364, 1436, 1463, 1634, 1643, 2088, 2556, 2565, 2655, 2808, 2880, 3146, 3164, 3416, 3461, 3614, 3641, 4136, 4163, 4316, 4361, 4479, 4497, 4613, 4631, 4749, 4794, 4947, 4974, 5256, 5265, 5526, 5562, 5625, 5652, 6134, 6143

Offset: 1

Author

Jean-Marc Rebert, Apr 24 2025

Keywords

• nonn
• base

Examples

			488 and 4^4 + 8^4 + 8^4 = 8448 have the same set of digits {4,8}, so 488 is a term.
		

Crossrefs

Cf. A055013, A383328, A383347, A249515, A003132.

Cf. A052455 (a subsequence).

Programs

Mathematica

q[k_] := Module[{d = IntegerDigits[k]}, Union[d] == Union[IntegerDigits[Total[d^4]]]]; Select[Range[0, 7000], q] (* Amiram Eldar, Apr 24 2025 *)

PARI

isok(k) = my(d=digits(k)); Set(d) == Set(digits(sum(i=1, #d, d[i]^4))); \\ Michel Marcus, Apr 24 2025

Python

def ok(n): return set(s:=str(n)) == set(str(sum(int(d)**4 for d in s)))
print([k for k in range(10**4) if ok(k)]) # Michael S. Branicky, Apr 24 2025