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

Links

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

Formula

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

Mathematica

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

Crossrefs

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

Sequence in context: A136827 A136831 A204009 * A043681 A234472 A376450

Adjacent sequences: A371044 A371045 A371046 * A371048 A371049 A371050

Keyword

nonn,base,easy

Author

Stefano Spezia, Mar 09 2024

Status

approved