%I#23 2016年11月7日11:12:33
%S 1,5,9,13,35,57,791011055055099099133237277273141145,
%电话:545549949953363367767771181185585589989993403308807,
%电话:712221126625530,39,97,83,42,28,86,72,31,17,75,61,20,6,10,5,9,13,35,57,79101105505909913323727731
%N从1开始,反复颠倒十进制数字,再加上4得到下一项。
%H N.J.A.Sloane等人,RADD类型序列,OEIS wiki。
%H<a href=“/index/Rec#order_54”>具有常系数的线性递归的索引条目</a>,签名(0,0,0、0、0和0、0,0。
%F一步进入长度为54的循环后:参见A117827和A117830。
%p读取转换;t1:=[1];对于从1到80的n,做t1:=[op(t1),4+数字rev(t1[n])];od:#_N.J.A.斯隆_
%t f[n_]:=4+从数字@反向@整数位数@n; 嵌套列表[f@#&,1,57](*和*)
%t(*查看周期*)NestWhileList[f@#&,1,UnsameQ,All](*_Robert G.Wilson v_,2006年5月9日*)
%o(PARI)a(n)=如果(n>1,my(t=6);对于(k=1,n%54,t=fromdigits(Vecrev(digits,t))+4);t、 1)2016年11月7日,Charles R Greathouse IV
%Y参见A117827、A117829、A117830。
%K nonn,基础,简单
%O 1,2号机组
%A Luc Stevens(lms022(AT)yahoo.com),2006年4月6日