搜索： 编号：a006072
|
| |
| |
|
|
|
0, 1, 8, 11, 88, 101, 111, 181, 808, 818, 888, 1001, 1111, 1881, 8008, 8118, 8888, 10001, 10101, 10801, 11011, 11111, 11811, 18081, 18181, 18881, 80008, 80108, 80808, 81018, 81118, 81818, 88088, 88188, 88888, 100001, 101101, 108801, 110011, 111111, 118811, 180081
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
偏移
|
1,3
|
|
|
评论
|
|
|
|
参考文献
|
N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
数学
|
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[IntegerDigits[idfhn]，Drop[Reverse[Integer Digits[idfhn]]，Mod[l，2]]]]]]；np=0；t={0}；Do[np=下一个回文[np]；如果[Union[Join[{0，1，8}，IntegerDigits[np]]=={0，1,8}、AppendTo[t，np]]、{n，1150}]；t吨(*罗伯特·威尔逊v*)
TetrNumsUpTo10powerK[k_]：=选择[FromDigits/@Tuples[{0，1，8}，k]，整数位数[#]=反转[IntegerDigits[#]]&]；TetrNumsUpTo10powerK[7](*米克·海德马，2017年5月21日*）
|
|
|
黄体脂酮素
|
（PARI）{对于（l=1,5，u=向量（（l+1）\2，i，10^（i-1）+（2*i-1<l）*10^（l-i）225367英镑跳过所有较短的项，然后跳过足够数量的向量v，直到达到n-M.F.哈斯勒2013年5月5日
（Python）
来自itertools导入计数，islice，product
定义代理（）：
[0,1,8]的产量
对于计数（2）中的d：
对于“18”中的开始：
对于产品中的其余部分（“018”，重复=d//2-1）：
left=开始+“”.join（rest）
对于[[“”]、[“0”、“1”、“8”]][d%2]中的中间值：
yield int（左+中+左[：：-1]）
打印（列表（islice（agen（），42））#迈克尔·布拉尼基2022年3月29日
|
|
|
交叉参考
|
|
|
|
关键词
|
基础,非n,容易的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.007秒内完成
|
