%I#8 2023年12月12日08:36:27
%S 0,1,2,6,7,8,3,4,5,9,10,11,6,7,10,8,4,,5,9,10,11,6,17,8,14,5,10,11,6,
%第7,8,3,4,5,9,10,11,6,7,8,13,45,9,10,11,6,10,11,6,8,4,6,7,10,3,4,
%U 5,9,10,11,1,6,7,8,3,4,5,9,10,11,6,7,8,3,4,5,9,10,11,6,7,8,3,4,5,9,10,11,6,7,8,3,4,5,9,10,11,6,6,7
%N a(N)=Sum_digits{a(N-1)+a(N-2)+Sum_digits[a(N-1)]+Sum_digits[a(N-2)]},其中a(0)=0,a(1)=1。
%C在前三项之后,序列是周期性的:6,7,8,3,4,5,9,10,11。
%pP:=proc(n)局部a,b,i,k,w,x,y;a: =0;b: =1;打印(a);打印(b);对于i从1乘1到n,做w:=0;k: =a;当k>0时,do w:=w+k-(trunc(k/10)*10);k: =trunc(k/10);od;x: =0;k: =b;当k>0时,做x:=x+k-(trunc(k/10)*10);k: =trunc(k/10);od;c: =b;y: =0;k: =a+b+w+x;当k>0时,做y:=y+k-(trunc(k/10)*10);k: =trunc(k/10);od;a: =b;b: =y;打印(y);od;结束:P(100);
%Y参见A016052、A047892、A04789 7-A047900、A047902、A047 903、A055263、A134268、A135210、A140131。
%K easy、nonn、base
%0、3
%A_Paolo P.Lava和Giorgio Balzarotti,2008年5月9日
|