A371004 Fourth powers whose digital sum is also a fourth power.
0, 1, 10000, 14641, 100000000, 104060401, 146410000, 1000000000000, 1004006004001, 1040604010000, 1464100000000, 4228599998736, 8670998958336, 9748688599521, 9948826238976, 12598637895936, 19226786746896, 19896452775936, 20699669996721, 23768199069696, 26599197668481
Offset: 1
Links
- Stefano Spezia, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[0,2500]^4, IntegerQ[DigitSum[#]^(1/4)]&]
Formula
a(n) = A371047(n)^4.
Comments