login
A254062
a(0)=1, thereafter a(n)=sum of the n last digits of the sequence.
1
1, 1, 2, 4, 8, 16, 22, 25, 30, 29, 32, 36, 39, 49, 60, 64, 69, 81, 90, 97, 104, 104, 100, 89, 102, 90, 99, 111, 104, 92, 102, 96, 102, 97, 113, 113, 114, 119, 122, 117, 124, 122, 109, 117, 124, 127, 126, 134, 131, 129, 139, 136, 144, 149, 159, 172, 177, 182, 190, 197, 206, 211, 210, 209, 219, 221, 218, 226, 231, 228, 237, 242, 243
OFFSET
0,3
EXAMPLE
a(0)=1; a(1)=1; a(2)=1+1=2; a(3)=2+1+1=4; a(4)=4+2+1+1=8; a(5)=8+4+2+1+1=16;a(6)=6+1+8+4+2+1=22.
MATHEMATICA
(* greedy code *)s={1}; dd={1}; Do[a=Total[Take[dd, -k]]; AppendTo[s, a]; dd=Flatten[{dd, IntegerDigits[a]}], {k, 1, 100}]; s
CROSSREFS
Sequence in context: A002081 A102039 A045844 * A341817 A230102 A063108
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jan 24 2015
STATUS
approved