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,3

Links

Table of n, a(n) for n=1..46.

Example

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

Mathematica

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

Prog

(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

Crossrefs

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

Cf. A052455 (a subsequence).

Sequence in context: A214806 A126819 A045011 * A253336 A205315 A118449

Adjacent sequences: A383346 A383347 A383348 * A383350 A383351 A383352

Keyword

nonn,base

Author

Jean-Marc Rebert, Apr 24 2025

Status

approved