%I#9 2014年12月5日04:52:52

%电话：04956174629644208767509843643086547530986436431088654，

%电话：864209875326433308666548764209875322643338308666654，

%电话：88543209876541265433310886654488543320987665412975533110888664421

%N从N位数字100…02开始迭代A151949的Kaprekar图；sequence给出了结果循环中的最低数字。

%H约瑟夫·迈尔斯（Joseph Myers），n表，n=2..1000的a（n）

%H<a href=“/index/K#Kaprekar_map”>Kaprekar映射的索引项</a>

%p A151949：=程序（n）

%p局部元组；

%p元组：=排序（convert（n，base，10））；

%p加法（（op（i，tup）-op（-i，tug））*10^（i-1），i=1..nops（tup））：

%p端：

%p A151957:=程序（n）

%p本地tra，x；

%px:=10^（n-1）+2；

%p tra:=[x]；

%p当为true时

%p x：=A151949（x）；

%p如果成员（x，tra，'l'），则

%p操作（l..nops（tra），tra）；

%p返回（最小值（%））；

%p fi；

%p tra:=[op（tra），x]：

%日期：

%p端：

%p序列（A151957（n），n=2..60）；

%p#_R.J.Mathar_，2009年8月20日

%t例如，要找到10002轨迹的前20项：

%t f[n_]：=模块[{idn=整数位数[n]，idns}，idns=排序[idn]；Abs[起始数字[idns]-起始数字[反转[idns]]]

%t嵌套列表[f，10002,20]

%Y循环长度见A151958。参见A151949、A151955（102的轨迹）和A151956（1002的轨迹）。

%Y另见A151967、A151968。

%K nonn，基础

%氧2,2

%A _哈维·P·戴尔和N·J·A·斯隆，2009年8月18日和19日

%E由R.J.Mathar和Joseph Myers于2009年8月20日延期