|
|
A371047
|
|
Numbers k such that the digital sum of k^4 is a fourth power.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Range[0, 4000]^4, IntegerQ[DigitSum[#]^(1/4)]&]^(1/4)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|