%I#11 2013年12月5日19:56:32

%编号：10,21,28,36,45,55,66,7817146552866221144652279133336

%N定义dd（k）=将k的连续数位的绝对差值串联而成的数字。三角形数t使dd（t）=例如，r，dd（r）=s等等。然后t，r，s等是三角形数，直到出现一个单数字三角形数（0，1，3或6）。（三角形数，其中由连续数字差形成的数字在每一步也是一个三角形数，最终形成一个一位数的三角形数。）。

%C猜想：序列是无限的。

%C没有更多条款<10^12。-_R.J.Mathar，2006年11月19日

%e 528是dd（528）=36，dd（36）=3的成员。528、36和3是三角形数字。

%t trnoQ[n_]：=整数Q[（Sqrt[8n+1]-1）/2]；oknQ[n_]：=模块[{ll=NestWhileList[FromDigits[Abs[Differences[IntegerDigits[#]]]&，n，#>9&]}，长度[ll]>1&&And@@trnoQ/@ll]；选择[Accumulate[Range[2000000]]，oknQ]（*哈维·P·戴尔，2011年5月15日*）

%o（PARI）dd（k）={local（kshf，res，dig，odig，p）；kshf=k；res=0；odig=kshf%10；p=0；while（kshf>9，kshf=floor（kshf10）；dig=kshf%10；res+=10^p*abs（dig-odig）；odig=dig；p++；）；return（res）；}isA000217（n）={if（issquare（1+8*n），return n*（n+1）/2）；}是A087598（n）={本地（nredu）；nredu=n；而（nredu>10，如果（isA000217（nredu），nredu=dd（nredo），返回（0））；）；if（isA000217（nredu），return（1），return（0））；｝{对于（k=41000000，if（isA087598（A000217（k）），print1（A000217（k），“，”）；）；}-R.J.Mathar_，2006年11月19日

%Y参见A087597、A087599、A087600。

%K基，更多，无

%氧2,1

%A _Amarnath Murthy，2003年9月18日

%E由R.J.Mathar_修订和扩展，2006年11月19日