%I#20 2023年3月2日12:13:25
%S 0,1,2,3,4,5,1,7,13,19,25,31,2,8,14,20,26,32,3,9,15,21,27,33,4,10,16,
%电话:22,28,34,5,11,17,23,29,35,1,7,13,19,25,31,37,43,49,55,61,67,73,79,85,
%电话:91,97103109115121127133145151157163169175
%N将N转换为基数6,将最高有效数字移到最低有效数字,然后再转换回基数10。
%Ca(6*n)=1。
%C转换的不动点列在A048331中。
%H Paolo P.Lava,n表,n=0..1000的a(n)</a>
%以6为基数的e16是24:将最高有效数字移动为最低有效数字42,即以10为基数的26。
%p with(numtheory):p:=进程(q,h)局部a,b,k,n;打印(0);
%n的p从1到qdo
%p a:=换算(n,基数,h);b: =[];对于从1到nops(a)-1的k,dob:=[op(b),a[k]];od;a: =[a[nops(a)],op(b)];
%p a:=换算(a,基数,h,10);b: =0;对于从nops(a)到-1的k,dob:=10*b+a[k];od;
%p打印(b);od;结束:P(10^4,6);
%t滚动[n_,b_]:=块[{w=整数位数[n,b]},附加[Rest@w,First@w]];b=6;FromDigits[#,b]&/@(滚动[#,b]&/@Range[0,65])(*米歇尔·德弗里格,2015年3月4日*)
%t表格[FromDigits[RotateLeft[IntegerDigits[n,6]],6],{n,0,70}](*_哈维P.戴尔,2023年3月2日*)
%Y参见A006257、A030105、A255588-A255594、A255689-A255690、A255692-A255693。
%K nonn,easy,基本
%0、3
%A _Paolo P.Lava,2015年3月2日
|