%I M4481#57 2023年1月6日19:33:09

%S 0,1,8,11,88101111181808818888100111111881800881188888，

%电话：1000110101108011101111181118018181188818000880108，

%电话：80808810188111881818888888818888810000110111011018801111001111118811180081

%中间镜像对称的N个数。

%C显然，这个序列和A111065具有相同的奇偶性_杰里米·加德纳，2005年10月15日

%C显然，该序列的项与A118594的项具有相同的奇偶校验（以及相同的数字和模6），见下文_M.F.Hasler，2013年5月8日

%C n位术语的数量由A225367给出，它以3为基数，A118594计算回文。这里的术语是这里考虑的基本3个回文，其中2被8替换（这意味着序列A006072源自A118594，不仅是通过取每个数字的三次幂，还通过将数字与其水平或垂直反射叠加，这在某种程度上显著地赋予了这里考虑的数字的对称性）_M.F.Hasler_，2013年5月5日【部分评论于2013年5年8月8日从A225367移至此处】

%D N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。

%H Michael S.Branicky，n表，n=1..100000的a（n）（文森佐·利班迪的术语1..1450）

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/TetradicNumber.html“>四分位数</a>

%F a（n）=A000578到A118594（n）的数字应用。-_M.F.Hasler，2013年5月8日

%t 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[l/2]]，FromDigs[Join[Take[2，Ceiling[l/2]]，Reverse[Take[id，Floor[l/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（*罗伯特·G·威尔逊v_*）

%t TetrNumsUpTo10powerK[k_]：=选择[FromDigits/@Tuples[{0，1，8}，k]，整数位数[#]==反转[IntegerDigits[#]]&]；TetrNumsUpTo10powerK[7]（*Mikk Heidemaa_，2017年5月21日*）

%o（PARI）{对于（l=1,5，u=矢量（（l+1）\2，i，10^（i-1）+（2*i-1<l）*10^（l-i））~；对于vec（v=矢量（（l+1）\2，i，[l>1&&i==1,2]），print1（（（v+v\2*6）*u“，”）））}\\第n项可以通过使用（的部分和）A225367跳过所有较短的项，然后跳过足够数量的矢量v直到达到n来产生。-_M.F.Hasler，2013年5月5日

%o（Python）

%o从itertools导入count、islice、product

%o定义代理（）：

%o[0,1,8]的产量

%计数（2）中的d为o：

%o用于“18”中的启动：

%o对于产品中的其余部分（“018”，重复=d//2-1）：

%o left=开始+“”.join（rest）

%o对于[[“”]，[“0”，“1”，“8”]][d%2]中的中间值：

%o产量int（左+中+左[：：-1]）

%o打印（列表（islice（agen），42））#_Michael S.Branicky_，2022年3月29日

%Y A000787的子序列。参见A045574。

%K基数，非n，简单

%氧1,3

%A.N.J.A.斯隆。

%E更多条款摘自2005年11月16日_Robert G.Wilson v_