|
|
抵消
|
2，1
|
|
|
评论
|
猜想：序列是无限的。
没有更多的条款<10^12。-R、 J.马萨2006年11月19日
|
|
|
链接
|
n=2..17的n，a（n）表。
|
|
|
例子
|
528是dd（528）=36，dd（36）=3的成员。528，36和3是三角形数字。
|
|
|
数学
|
trnoQ[nü]：=IntegerQ[（Sqrt[8n+1]-1）/2]；oknQ[n_u]：=Module[{ll=nestwilelist[FromDigits[Abs[Differences[IntegerDigits[#]]]&，n，\>9&]}，Length[ll]>1&&And@@trnoQ/@ll]；选择[累计[Range[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（kshf/10）；dig=kshf%10；res+=10^p*abs（dig-odig）；odig=dig；p++；）；return（res）；}A000217（n） ={return（n*（n+1）/2）；}isA087598（n）={local（nredu）；nredu=n；while（nredu>10，if（isA000217（nredu），nredu=dd（nredu），return（0））；）；if（isA000217（nredu），return（1），return（0））；}{for（k=41000，if（isA087598）(A000217（k） ），打印1(A000217（k） ，“，”）；）；）；}-R、 J.马萨2006年11月19日
|
|
|
交叉引用
|
囊性纤维变性。A087597号,A087599号,A087600型.
上下文顺序：A181450型 A331997飞机 A087597号*A242287号 A165403号 A097386号
相邻序列：A087595号 A087596号 A087597号*A087599号 A087600型 A087601号
|
|
|
关键字
|
基础,更多,不
|
|
|
作者
|
阿玛纳特·穆尔蒂2003年9月18日
|
|
|
扩展
|
修正和扩展R、 J.马萨2006年11月19日
|
|
|
状态
|
经核准的
|
