%I#22 2018年4月27日09:21:55

%S 1,4,5,9,5,5,1,6,7,4,2,6,8,5,4,4,8,3,2,5,7,3,1,4,5,16,7,1,4，

%温度2,6,8,5,4,9,4,4,8,3,2,5,7,3,1,4,5,9,5,5,1,6,7,4,2,6,5,4，9,4,1,8,3，

%U 2,5,7,3,1,4,5,9,5,5,1,6,7,4,2,6,8,5,4,9,4,4,8,3,2,5,3,7,1,4,5

%N a（N+1）=（a（N）+a（N-1））的位数之和。

%C这也是A022378的数字根，斐波那契从2和32开始，从第20个术语2:[2、5、7、3、1、4、5、9、5、5、1、6、7、4、2、6、8、5、4、9、4、8、3。]与A000045的数字根一样，序列是周期24，同样，它的周期加起来也是117。_Peter M.Chema，2016年4月28日

%H<a href=“/index/Rec#order_24”>带常系数线性递归的索引条目</a>，签名（0,0,0,1,0,0-0,00,0_0,0,0，0,0.0,0,O,0,01）。

%财务总经理：（1+4*x+5*x^2+9*x^3+5*x^4+5*x*x^5+x^6+6*x^7+7*x^8+4*x^9+2*x^10+6*x ^11+8*x^12+5*x ^13+4*x ^14+9*x ^15+4*x*^16+4*xx^17+8*x ^18+3*x^19+2*x ^20+5*x×^21+7*x ^22+3*x ^23）/（1-x^24）-_罗伯特·伊斯雷尔，2016年4月28日

%pA[0]：=1:A[1]：=4:

%p代表i从2到100 do

%p t:=A[i-2]+A[i-1]；

%pA[i]：=（t+9*（t mod 10））/10；

%日期：

%p序列（A[i]，i=0..100）；#_罗伯特·伊斯雷尔（Robert Israel），2016年4月28日

%ta[0]=1；a[1]=4；a[n_]：=a[n]=总计@整数位数[a[n-1]+a[n-2]；表[a@n，{n，0，120}]（*Michael De Vlieger_，2016年4月28日*）

%tnxt[{a_，b_}]：={b，总计[整数位数[a+b]]}；NestList[nxt，{1,4}，100][[All，1]]（*或*）PadRight[{}，100，{1,4，5,9,5,5,1,6,7,4,2,6,8,5,4,9,4,8,3,2,5,7,3}]（*Harvey P.Dale_，2018年4月27日*）

%o（PARI）a（n）=n=n%24；我的（a=3，b=1）；而（n，[a，b]=[b，和数（a+b）]；n--）；2016年4月28日，查尔斯·格里特豪斯四世

%K nonn，基础，简单

%0、2

%A.N.J.A.斯隆。