|
%I #17 Mar 14 2015 01:02:03
%S 1,1,2,4,8,16,22,25,30,29,32,36,39,49,60,64,69,81,90,97,104,104,100,
%T 89,102,90,99,111,104,92,102,96,102,97,113,113,114,119,122,117,124,
%U 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
%N a(0)=1, thereafter a(n)=sum of the n last digits of the sequence.
%H Zak Seidov, <a href="/A254062/a254062.jpg">Graph of first 10000 terms</a>
%H Zak Seidov, <a href="/A254062/a254062_1.jpg">Graph of first differences for the first 10000 terms.</a>
%H Zak Seidov, <a href="/A254062/a254062_2.jpg">Graph of first differences for the 10th 10000 terms.</a>
%H Zak Seidov, <a href="/A254062/a254062_3.jpg">Distribution of first differences for 10th 10000 terms.</a>
%e 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.
%t (* greedy code *)s={1};dd={1};Do[a=Total[Take[dd,-k]];AppendTo[s,a];dd=Flatten[{dd,IntegerDigits[a]}],{k,1,100}];s
%K nonn,base
%O 0,3
%A _Zak Seidov_, Jan 24 2015
|
