A246008-OEIS公司

A246008型

让pal（k）表示第k个回文，A002113号（k），设a（0）=0，a（1）=1。对于n>=2，如果a（n-1）=pal（k），则a（n）=pal（k+i），其中i=a（n-1）-a（n-2）。

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 33, 252, 15451, 54533545, 445335474533544, 34533547453354645335474533543, 245335474533546453354745335454533547453354645335474533542, 14533547453354645335474533545453354745335464533547453354445335474533546453354745335454533547453354645335474533541

(列表;图表;参考;听;历史;文本;内部格式)

抵消

0,3

相反，如果我们设置a（n）=pal（a（n-1）），序列必须从第十二个回文22开始，然后从那里开始：12，22，121，2112，1112111，112111211，1211111111211111121121，211111121111121111111111111112111111111121112111111112112111111211111111111112。这个序列很有趣，因为到目前为止只出现数字1和2（测试了17个术语）。

链接

Hiroaki Yamanouchi，n=0..21时的n，a（n）表

Hiroaki Yamanouchi，Python源代码

例子

对于n=11，我们有a（10）=11=pal（11），a（10”-a（9）=11-9=2，所以a（11）=pal。

a（12）=252，因为它是13之后的第22个回文，11和33之间的差异。

数学

NextPalindrome[n_]：=块[{l=Floor[Log[10，n]+1]，idn=IntegerDigits[n]}，如果[Union[idn]=={9}，Return[2]，如果[l<2，Return[n+1]，如果[FromDigits[Reverse[Take[idn，Ceiling[l/2]]]>FromDiges[Take[idn，-Ciling[1/2]]，FromDigs[Join[Take[2，Ceiling[l/2]]，Reverse[Take[id，Floor[l/2]2]]]]]，idfhn=FromDigits[Take[idn，Ceiling[l/2]]]+1；idp=FromDigits[Join[InterDigits[idfhn]，Drop[Reverse[InterDigits[idfhn]]，Mod[l，2]]]]]]]；f[s_List]：=块[{a=s[[-1]]，b=s[[2]]}，附加[s，嵌套[NextPalindrome@#&，a，a-b]]]；s={0，1}，嵌套[f，s，14]

nthPalindrome[n_]：=块[{q=n+1-10^层[Log10[n+1-10^楼层[Log10[10]]]，c=总和[Floor[楼层[n/（11*10^（k-1）-1）]/（楼层[n/[（11*10 ^（k-1）-1）]-1/10）]-楼层[楼层[n/（2*10^k-1）]/}，Mod[q，10]*11^c*10^楼层[Log10[q]]+总和[楼层[Mod[q,10^（k+1）]/10^k]*10^（Floor[Log10[q]]-k）（10^（2k+c）+1），{k，Floor[Log10[q]}]]（*在埃里克·施密特（Eric A.Schmidt）的作品之后，参见A002113号*)s={0}；f[s_List]：=块[｛k=s[[-1]]+1｝，追加[s，第n个回文[k]]]；嵌套[f，s，18](*罗伯特·威尔逊v2014年9月22日*）

黄体脂酮素

（Python）

从itertools导入islice

定义A246008型_gen（）：#术语生成器

a、 b，k=0，1，2

产量0

为True时：

收益率b

a、如果（k:=k+b-a）<（x:=10**（len（str（k>>1））-1））+（y:=10*x）else（c:=k-y）*y+int（字符串（c）[-2:：-1]或0）

A246008型_list=列表（岛屿(A246008型_发电机（），22））#柴华武2024年7月10日

交叉参考

囊性纤维变性。A002113号,A007097号.

上下文中的序列：A250409型 A303002型 A167152号*A344823型 A064704号 A083136号

相邻序列：A246005型 A246006型 A246007型*A246009型 A246010型 A246011型

关键字

非n,基础

作者

罗伯特·威尔逊v2014年9月20日

扩展

a（16）-a（17）来自山口博明2014年9月21日

编辑人N.J.A.斯隆2014年10月1日

状态

经核准的