A055565 Sum of digits of n^4.
0, 1, 7, 9, 13, 13, 18, 7, 19, 18, 1, 16, 18, 22, 22, 18, 25, 19, 27, 10, 7, 27, 22, 31, 27, 25, 37, 18, 28, 25, 9, 22, 31, 27, 25, 19, 36, 28, 25, 18, 13, 31, 27, 25, 37, 18, 37, 43, 27, 31, 13, 27, 25, 37, 27, 28, 43, 18, 31, 22, 18, 34, 37, 36, 37, 34, 45, 13, 31, 27, 7
Offset: 0
Examples
a(2) = 7 because 2^4 = 16 and 1+6 = 7.
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..10000
Crossrefs
Programs
-
Maple
for i from 0 to 200 do printf(`%d,`,add(j, j=convert(i^4, base, 10))) od;
-
Mathematica
a[n_Integer]:=Apply[Plus, IntegerDigits[n^4]]; Table[a[n], {n, 0, 100}] (* Vincenzo Librandi, Feb 23 2015 *) -
PARI
a(n) = sumdigits(n^4); \\ Seiichi Manyama, Nov 16 2021
-
Sage
[sum((n^4).digits()) for n in (0..70)] # Bruno Berselli, Feb 23 2015
Formula
Extensions
More terms from James Sellers, Jul 04 2000