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
Links
- Stefano Spezia, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
Select[Range[0,4000]^4,IntegerQ[DigitSum[#]^(1/4)]&]^(1/4)
Formula
a(n) = A371004(n)^(1/4).