A371047 Numbers k such that the digital sum of k^4 is a fourth power.

0, 1, 10, 11, 100, 101, 110, 1000, 1001, 1010, 1100, 1434, 1716, 1767, 1776, 1884, 2094, 2112, 2133, 2208, 2271, 2292, 2298, 2514, 2544, 2556, 2604, 2628, 2892, 2919, 2922, 2976, 3006, 3018, 3066, 3078, 3096, 3111, 3126, 3138, 3144, 3159, 3162, 3492, 3498, 3504

Offset: 1

Author

Stefano Spezia, Mar 09 2024

Keywords

• nonn
• base
• easy

Links

• Stefano Spezia, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000583, A007953, A011557 (subsequence), A038444 (subsequence), A061910, A237525, A371004.

Programs

Mathematica

Select[Range[0,4000]^4,IntegerQ[DigitSum[#]^(1/4)]&]^(1/4)

Formula

a(n) = A371004(n)^(1/4).