A065137 Sum of digits of n plus sum of cubes of digits of n.
0, 2, 10, 30, 68, 130, 222, 350, 520, 738, 2, 4, 12, 32, 70, 132, 224, 352, 522, 740, 10, 12, 20, 40, 78, 140, 232, 360, 530, 748, 30, 32, 40, 60, 98, 160, 252, 380, 550, 768, 68, 70, 78, 98, 136, 198, 290, 418, 588, 806, 130, 132, 140, 160, 198, 260, 352, 480, 650
Offset: 0
Examples
a(23) = (2+3)+(2^3+3^3) = 40.
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
Crossrefs
Cf. A065138.
Programs
-
Mathematica
Table[Total[IntegerDigits[n]]+Total[IntegerDigits[n]^3],{n,0,60}] (* Harvey P. Dale, Jul 15 2017 *)