|
| |
|
| A087598号 |
| 定义dd（k）=将k的连续数字的绝对差值串联而成的数字。三角形数t使dd（t）=例如，r，dd（r）=s等等。然后t，r，s等是三角形数，直到出现一个单数字三角形数（0,1,3或6）。（三角形数，其中由连续数字差形成的数字在每一步也是一个三角形数，最终形成一个一位数的三角形数。）。 |
|
三
|
|
|
|
10, 21, 28, 36, 45, 55, 66, 78, 171, 465, 528, 666, 2211, 4465, 22791, 333336
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
2,1
|
|
|
评论
|
推测：序列是无限的。
|
|
|
链接
|
|
|
|
示例
|
528是dd（528）=36，dd（36）=3的成员。528、36和3是三角形数字。
|
|
|
数学
|
trnoQ[n_]：=整数Q[（Sqrt[8n+1]-1）/2]；oknQ[n_]：=模块[｛ll=NestWhileList[FromDigits[Abs[Differences[InterDigits[#]]]&，n，#>9&]}，长度[ll]>1&&And@@trnoQ/@ll]；选择[累计[范围[2000000]]，oknQ](*哈维·P·戴尔，2011年5月15日*）
|
|
|
黄体脂酮素
|
（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），returnA000217号（n） ={return（n*（n+1）/2）；}isA087598（n）={local（nredu）；nredu=n；while（nredu>10，if（isA000217（nredo），nredu=dd（nretu），return(A000217号（k） ），打印1(A000217号（k） ，“，”）；）；））；}-R.J.马塔尔2006年11月19日
|
|
|
交叉参考
|
|
|
|
关键词
|
基础,更多,非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
已批准
|
| |
|
|
