|
| |
|
|
A071122
|
|
a(n) = a(n-1) + sum of decimal digits of 2^n.
|
|
0
| |
|
|
2, 6, 14, 21, 26, 36, 47, 60, 68, 75, 89, 108, 128, 150, 176, 201, 215, 234, 263, 294, 320, 345, 386, 423, 452, 492, 527, 570, 611, 648, 695, 753, 815, 876, 935, 999, 1055, 1122, 1193, 1254, 1304, 1350, 1406, 1464, 1526, 1596, 1664, 1737, 1802, 1878, 1958
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| s=0; Do[s=s+Apply[Plus, IntegerDigits[2^n]]; Print[s], {n, 1, 128}]
|
|
|
CROSSREFS
| Cf. A037123, A000788, A051351, A071317, A071121.
Sequence in context: A032383 A014775 A009218 * A173724 A101572 A080766
Adjacent sequences: A071119 A071120 A071121 * A071123 A071124 A071125
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), May 27 2002
|
| |
|
|
