登录
A151963号
(周期前部分的长度)+(周期长度)中Kaprekar映射迭代下n的轨迹A151949号.
10
1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 3, 7, 5, 6, 4, 4, 6, 5, 7, 3, 2, 3, 7, 5, 6, 4, 4, 6, 5, 7, 3, 2, 3, 7, 5, 6, 4, 4, 6, 5, 7, 3, 2, 3, 7, 5, 6, 4, 4, 6, 5, 7, 3, 2, 3, 7, 5, 6, 4, 4, 6, 5, 7, 3, 2, 3, 7, 5, 6, 4, 4, 6, 5, 7, 3, 2, 3, 7, 5, 6, 4, 4, 6, 5, 7, 3, 2, 3, 7, 5, 6, 4, 4, 6, 5, 7, 3
抵消
0,2
评论
等于A151962号(n) +1 iff n<10001(当长度首次出现大于1的循环时)。
链接
Joseph Myers和Robert G.Wilson v,n=0..1000时的n,a(n)表.
例子
13->18->63->27->45->9->0->0,因此a(13)=6+1=7。
MAPLE公司
#Maple程序来自R.J.马塔尔:
A151949号:=进程(n)
局部元组;
tup:=排序(convert(n,base,10));
添加((op(i,tup)-op(-i,tup,))*10^(i-1),i=1..nops(tup)):
结束时间:
A151963号:=进程(n)
本地tra,x;
tra:=[n];
x:=n;
虽然是真的
x(x):=A151949号(x) ;
如果x在tra中,则
返回(nops(tra));
fi;
tra:=[op(tra),x]:
日期:
结束时间:
序列(A151963号(n) ,n=0..120);
数学
f[n_]:=模块[{idn=整数位数@n,idns},idns=排序@idn;从数字@反向@idns-从数字@idns];g[n_]:=长度[NestWhileList[f,n,UnsameQ,All]]-1;表[g@n,{n,0,104}](*罗伯特·威尔逊v2009年8月20日*)
交叉参考
在其他基础上:A164886号(基数2),A164996号(基数3),A165015号(基数4),A165035号(以5为基数),A165054号(基数6),A165074号(以7为基数),A165093号(以8为基数),A165113号(以9为基数)-约瑟夫·迈尔斯,2009年9月5日
关键词
非n,基础
作者
N.J.A.斯隆2009年8月19日
扩展
错误更正人约瑟夫·迈尔斯2009年8月20日
更多术语来自R.J.马塔尔罗伯特·威尔逊v2009年8月20日
状态
经核准的