%I#22 2021年1月22日14:04:37
%S 125281182838382536797635618033081685770307758288912319882,
%电话53584135314853513544494944453101522312136776312132251,
%电话:211191332062866826023319111266900725257795885975270096620251108065422294774922245601152025384129268047995275725997408629214835
%N串联123…N的最小回文倍数。
%当n是10的倍数时,123…n的任何倍数都有尾随零,因此它不能是回文的。因此,列为a(10k)的术语是“允许不可见的前导零”的最少回文倍数,或者等效地忽略尾随零。
%C A020485的子序列。
%H P.De Geest,<a href=“http://www.worldofnumbers.com/em36.htm“>使数字回文的最小乘数</a>。
%对于j<66和123*66=8118,e 123*j不是回文,因此a(3)=8118。
%t f[n_]:=块[{k=1,p=FromDigits[Flatten[IntegerDigits/@Range[n]]},而[If[Mod[p,10]==0,p/=10];而[k*p!=FromDigits[Reverse[IntegerDigits[k*p]],k++]];k*p];表[f[n],{n,11}](*_Robert G.Wilson v_,2005年7月19日*)
%o(PARI){s=“”;对于(n=1,10,s=concat(s,n);k=eval(s);如果(n%10==0,m=0,j=1;while(m=k*j)!=intreverse(m),j++));打印1(m,“,”)}(有关intreverses,请参见A067723)
%o(PARI)A109924(n)={n=eval(concat(向量(n,i,Str(i))
%Y参见A020485、A050782、A061816、A109929。
%K nonn,基础
%O 1,2号机组
%A _Amarnath Murthy,2005年7月16日
%E由_Klaus Brockhaus编辑并扩展(a(5)至a(10)),2005年7月19日
%E a(10)-a(11)摘自_Robert G.Wilson v_,2005年7月19日
%E由M.F.Hasler于2011年6月19日澄清的(10k)定义。
%E a(12)-a(14)摘自Giovanni Resta_,2019年9月22日
%E a(15),来自Giovanni Resta,2019年9月24日
|