登录
这个网站是通过捐款来支持的。OEIS基金会.

 

标志


提示
问候整数序列的在线百科全书!)
A07855 基数为10和17的回文数。 三十七
0, 1, 2、3, 4, 5、6, 7, 8、9, 11, 252、494, 545, 767、818, 989, 2882、4554, 61416, 94249、177771, 256652, 335533、1388831, 4165614, 8837388、31744713, 102757201, 103595301、123616321, 124454421, 207535702、208373802, 212313212, 229232922 列表图表参考文献历史文本内部格式
抵消

1,3

链接

Robert G. Wilson五世,n,a(n)n=1…70的表(Ray Chandler的前67项)

Mathematica

NextPalindrome[n_] := Block[{l = Floor[ Log[10, n] + 1], idn = IntegerDigits[n]}, If[ Union[idn] == {9}, Return[n + 2], If[l < 2, Return[n + 1], If[ FromDigits[ Reverse[ Take[idn, Ceiling[l/2]] ]] FromDigits[ Take[idn, -Ceiling[l/2]]], FromDigits[ Join[ Take[idn, Ceiling[l/2]], Reverse[ Take[idn, Floor[l/2]] ]]], idfhn = FromDigits[ Take[idn, Ceiling[l/2]]] + 1; idp = FromDigits[ Join[ IntegerDigits[idfhn], Drop[ Reverse[ IntegerDigits[idfhn]], Mod[l, 2]] ]]] ]]]; palQ[n_Integer, base_Integer] := Block[{idn = IntegerDigits[n, base]}, idn == Reverse[idn]]; l = {0}; a = 0; Do[a = NextPalindrome[a]; If[ palQ[a, 17], AppendTo[l, a]], {n, 40000}]; l (*Robert G. Wilson五世,SEP 03 2004*)

B1=10;B2=17;LS1={};do[d1=整数数字[n,b1];d2=整数数字[n,b2];如果[d1=逆[d1] & & d2==倒数[d2],附录[LST,n] ],{n,0, 10000000 };LST(*)文森佐·利布兰迪11月23日2014*)

黄体脂酮素

(岩浆)[n:n在[0…10000000 ] iNeSEQ(n,10)eq反转(iTeSEQ(n,10))和iTeSEQ(n,17)eq反转(iTeSEQ(n,17))];文森佐·利布兰迪11月23日2014

交叉裁判

囊性纤维变性。A000 7632A000 7633A029 961A029 962A029 963A029 964A029 804A029 965A029 966A029 967A029 968A029 959A029 970A029 731A09165.

语境中的顺序:A2488 A029 967 A029 968*A250408 A029 959 A029 731

相邻序列:A07852 A07853 A07854*A097 856 A097 875 A07858

关键词

基地诺恩

作者

西诺希利亚德8月31日2004

扩展

更多条款Robert G. Wilson五世,SEP 03 2004

期限0由Robert G. Wilson五世,10月07日2014

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

许可协议、使用条款、隐私政策。.

最后修改9月17日14:57 EDT 2019。包含327135个序列。(在OEIS4上运行)