显示找到的21个结果中的1-10个。
6643, 10, 46, 67, 92, 121, 154, 191, 232, 277, 326, 379, 436, 497, 562, 631, 704, 781, 862, 947, 1036, 1129, 1226, 1327, 1432, 1541, 1654, 1771, 1892, 2017, 2146, 2279, 2416, 2557, 2702, 2851, 3004, 3161, 3322, 3487, 3656, 3829, 4006, 4187, 4372, 4561
评论
在下文中,dig(expr)表示表示表达式expr和的值的数字。代表串联。
至于这个序列的命名,不包括琐碎的1位回文0..dig(n-1)。
如果一个数字m是以n和n+1为基数的回文,那么m在以n为基数表示时具有奇数位数。
以n为基数的所有三位数,即以n和n+1为基数的回文数字,均由以下公式给出:
n=3时为101_3 22_4,
232_n 1.挖(n).1_(n+1)
343_n 2.挖(n-1).2_(n+1)
达到并包括
dig(n-2).dig(n-1).dig
dig(n-1).0.dig(n-1)n dig(n3).5.当n>4时,dig(-n3)(n+1)。
设d_L(n)是以n为基数的L位整数的个数(L是奇数),在n和n+1为基数的情况下是回文的,那么:
当n>=2时,d1(n)=n(见上文),
当n>=5时,d3(n)=n-2(见上文),
d5(n)=n-1,对于n>=7且n==1(mod 3),
d5(n)=n-4,对于n>=7,n在{0,2}(mod 3)中,以及
对于足够大的n,似乎d7(n)的阶数为O(n^2*log(n))。(结束)
配方奶粉
当n>=4时,a(n)=2n^2+3n+2(即232n和1n1(n+1))。
通用格式:x^2*(6643-19919*x+19945*x^2-6684*x^3+19*x^4)/(1-x)^3。
当n>6时,a(n)=3*a(n-1)-3*a(n-2)+a(n-3)。
(结束)
例子
a(14)=2*14^2+3*14+2=436,即232_14和1e1-15。
数学
Do[k=n+2;While[RealDigits[k,n+1][1]]!=反转[RealDigits[k,n+1][1]]]||RealDigits[k,n][1]]!=反转[RealDigits[k,n][1]],k++];打印[k],{n,2,75}]
palQ[n_Integer,base_Integer]:=块[{idn=IntegerDigits[n,base]},idn==反转[idn]];f[n_]:=块[{k=n+2},而[!palQ[k,n]||!palQ[k,n+1],k++];k] ;表[f[n],{n,2,48}](*罗伯特·威尔逊v2004年9月29日*)
黄体脂酮素
(PARI)isok(j,n)=my(da=数字(j,n),db=数字(j,n+1));(Vecrev(da)==da)&&(Vecref(db)==db);
a(n)={my(j=n);while(!isok(j,n),j++);j;}\\米歇尔·马库斯2017年11月16日
(PARI)Vec(x ^2*(6643-19919*x+19945*x ^2-6684*x ^3+19*x ^4)/(1-x)^3+O(x ^50))\\科林·巴克2019年6月30日
交叉参考
囊性纤维变性。A029965号,A029966号,A048269号,A060792号,A097928号,A097929号,A097930号,A097931号,A099145型,A099146号,A099147号,A099153号.
作者
Ulrich Schimke(ulrschimke(AT)aol.com)
0, 1, 2, 3, 4, 5, 6, 121, 178, 235, 292, 300, 2997, 6953, 7801, 10658, 13459, 16708, 428585, 431721, 444713, 447849, 450985, 502457, 626778, 786435, 10453500, 27924649
例子
178在序列中,因为178_10=343_7=262_8。
数学
palQ[n_Integer,base_Integer]:=块[{idn=IntegerDigits[n,base]},idn==反转[idn]];选择[Range[150000000],palQ[#,7]&&palQ[#,8]&]
交叉参考
囊性纤维变性。A048268号,A060792号,A097928号,A097929号,A097930号,A097931号,A099146号,A029965号,A029966号,A099147号,A099153号.
0, 1, 2, 3, 4, 5, 6, 7, 154, 227, 300, 373, 446, 455, 11314, 12547, 17876, 27310, 889435, 894619, 899803, 926371, 1257716, 1262900, 1268084, 1273268, 1294652, 1368461, 1373645, 1405397, 2067519, 63367795, 71877268, 98383349
例子
227在序列中,因为227_10=343_8=272_9。
数学
palQ[n_Integer,base_Integer]:=块[{idn=IntegerDigits[n,base]},idn==反转[idn]];选择[Range[250000000],palQ[#,8]&&palQ[#,9]&]
交叉参考
囊性纤维变性。A048268号,A060792号,A097928号,A097929号,A097930号,A097931号,A099145型,A029965号,A029966号,A099147号,A099153号.
0, 1, 3, 5, 7, 9, 27, 45, 63, 65, 73, 195, 219, 325, 341, 365, 381, 455, 471, 495, 511, 513, 585, 1539, 1755, 2565, 2709, 2925, 3069, 3591, 3735, 3951, 4095, 4097, 4161, 4617, 4681, 12291, 12483, 13851, 14043, 20485, 20613, 20805, 20933, 21525, 21653, 21845, 21973, 23085, 23213, 23405, 23533, 24125, 24253, 24445, 24573, 28679, 28807, 28999, 29127, 29719, 29847
例子
2709在序列中,因为2709_10=5225_8=101010010101_2。
数学
(*首先从中加载nthPalindromeBaseA002113号*)palQ[n_Integer,base_Integer]:=块[{},反转[idn=IntegerDigits[n,base]]==idn];k=0;lst={};而[k<21000000,pp=nthPalindromeBase[k,8];如果[palQ[pp,2],AppendTo[lst,pp];打印[pp]];k++];第一次
b1=2;b2=8;lst={};Do[d1=整数位数[n,b1];d2=整数位数[n,b2];如果[d1==反转[d1]&&d2==反转[d2],追加到[lst,n]],{n,0,30000}];第一次(*文森佐·利班迪2015年7月17日*)
交叉参考
囊性纤维变性。A048268号,A060792号,A097856号,A097928号,A182232号,A259374号,A097929号,A182233号,A259375型,A259376号,
A097930号,A182234号,259377元,259378元,A249156号,A097931号,A259380型,2005年2月,A259382型,A259383型,
A259384型,A099145型,A259385型,A259386型,A259387号,A259388号,A259389号,A259390型,A099146号,A007632号,
A007633号,A029961号,A029962美元,A029963号,A029964号,A029804号,A029965美元,A029966号,A029967号,A029968号,
0, 1, 2, 4, 26, 52, 1066, 1667, 2188, 32152, 67834, 423176, 437576, 14752936, 26513692, 27711772, 33274388, 320785556, 1065805109, 9012701786, 9256436186, 12814126552, 18814619428, 201241053056, 478999841578, 670919564984, 18432110906024, 158312796835916, 278737550525722
评论
无论基数是多少,0都只是0,
1仅为1,而与基数无关,
2在基底2中也是10(表示为10_2),
在所有大于3的碱基中,3为3,但为112和103。
例子
52在序列中,因为52_10=202_5=1221_3。
数学
(*首先从中加载nthPalindromeBaseA002113号*)palQ[n_Integer,base_Integer]:=块[{},反转[idn=IntegerDigits[n,base]]==idn];k=0;lst={};而[k<21000000,pp=nthPalindromeBase[k,5];如果[palQ[pp,3],AppendTo[lst,pp];打印[pp]];k++];第一次
b1=3;b2=5;lst={};Do[d1=整数位数[n,b1];d2=整数位数[n,b2];如果[d1==反转[d1]&&d2==反转[d2],追加到[lst,n]],{n,0,10000000}];第一次(*文森佐·利班迪2015年7月15日*)
黄体脂酮素
(Python)
def nextpal(n,b):#返回以b为基数的n的回文后继项
….m,pl=n+1,0
….当m>0时:
……..m,pl=m//b,pl+1
….如果n+1==b**pl:
……….pl=pl+1
….n=(n//(b**(pl//2))+1)//(b***(pl%2))
….m=n
….当n>0时:
……..m,n=m*b+n%b,n//b
….返回m
n、 a3,a5=0,0,0
而n<=20000:
….如果a3<a5:
……..a3=下一个pal(a3,3)
……elif a5<a3:
……..a5=下一批(a5,5)
….其他:#a3==a5
……..打印(n,a3)
……..a3,a5,n=下一个pal(a3,3),下一个Pal(a5,5),n+1
交叉参考
囊性纤维变性。A048268号,A060792号,A097856号,A097928号,A182232号,A259374号,A097929号,A182233号,A259375型,A259376号,A097930号,A182234号,259377元,A259378号,A249156号,A097931号,A259380型-A259384型,A099145美元,A259385型-A259390型,A099146号,A007632号,A007633号,A029961号-A029964号,A029804号,A029965号-A029970型,A029731号,A097855号,A250408型-A250411型,A099165号,A250412型.
0, 1, 2, 4, 28, 80, 160, 203, 560, 644, 910, 34216, 34972, 74647, 87763, 122420, 221068, 225064, 6731644, 6877120, 6927700, 7723642, 8128762, 8271430, 77894071, 78526951, 539212009, 28476193256, 200267707484, 200316968444, 201509576804, 201669082004, 231852949304, 232018753064, 232039258376, 333349186006, 2947903946317, 5816975658914, 5817003372578, 11610051837124, 27950430282103, 81041908142188
评论
对于至少n=1到5,与减半立方体图Q_n/2的最小支配集的数量一致-埃里克·韦斯特因,2021年9月6日
例子
28在序列中,因为28_10=44_6=1001_3。
数学
(*首先从中加载nthPalindromeBaseA002113号*)palQ[n_Integer,base_Integer]:=块[{},反向[idn=整数位数[n,base]]==idn];k=0;lst={};而[k<21000000,pp=nthPalindromeBase[k,6];如果[palQ[pp,3],AppendTo[lst,pp];打印[pp]];k++];第一次
b1=3;b2=6;lst={};Do[d1=整数位数[n,b1];d2=整数位数[n,b2];如果[d1==反转[d1]&&d2==反转[d2],追加到[lst,n]],{n,0,10000000}];第一次(*文森佐·利班迪2015年7月15日*)
交叉参考
囊性纤维变性。A048268号,A060792号,A097856号,A097928号,A182232号,A259374号,A097929号,A182233号,A259375型,259376元,A097930号,A182234号,259377元,A259378号,A249156号,A097931号,A259380型,A259381型,A259382型,A259383型,A259384型,A099145型,A259385型,A259386型,A259387号,A259388号,A259389号,A259390型,A099146美元,A007632号,A007633号,A029961号,A029962号,A029963号,A029964号,A029804号,A029965号,A029966号,A029967号,A029968号,A029969号,A029970型,A029731号,A097855号,A250408型,A250409型,A250410型,A250411型,A099165号,A250412型.
0, 1, 2, 3, 5, 21, 55, 215, 819, 1885, 7373, 7517, 12691, 14539, 69313, 196606, 1856845, 3314083, 5494725, 33348861, 223892055, 231755895, 322509617, 3614009815, 4036503055, 4165108015, 9233901154, 9330794722, 12982275395, 107074105033, 186398221946, 270747359295, 401478741365, 1809863435625, 2281658774290, 11931403417210, 12761538567790, 12887266632430, 15822654274715, 30255762326713, 46164680151002, 323292550693473, 329536806222753
例子
55在序列中,因为55_10=131_6=313_4。
数学
(*首先从中加载nthPalindromeBaseA002113号*)palQ[n_Integer,base_Integer]:=块[{},反转[idn=IntegerDigits[n,base]]==idn];k=0;lst={};而[k<21000000,pp=nthPalindromeBase[k,6];如果[palQ[pp,4],AppendTo[lst,pp];打印[pp]];k++];第一次
交叉参考
囊性纤维变性。A048268号,A060792号,A097856号,A097928号,A182232号,A259374号,A097929号,A182233号,A259375型,A259376号,
A097930美元,A182234号,259377元,A259378号,A249156号,A097931号,259380元,A259381型,A259382型,A259383型,
A259384型,A099145型,A259385型,A259386型,A259387号,A259388号,A259389号,A259390型,A099146号,A007632号,
A007633号,A029961美元,A029962号,A029963号,A029964号,A029804号,A029965号,A029966号,A029967号,A029968号,
0, 1, 2, 4, 8, 16, 40, 100, 121, 142, 164, 242, 328, 400, 1312, 8200, 9103, 14762, 54008, 76024, 108016, 112048, 233920, 532900, 639721, 741586, 2585488, 3316520, 11502842, 24919360, 35664908, 87001616, 184827640, 4346524576, 5642510512, 11641189600, 65304259157, 68095147754, 469837033600, 830172165614, 17136683996456, 21772277941544,22666883572232, 45221839119556
例子
142在序列中,因为142 _10=262 _7=12021 _3。
数学
(*第一次从A002113号*)palQ[n_Integer,base_Integer]:=块[{},反转[idn=IntegerDigits[n,base]]==idn];k=0;lst={};而[k<21000000,pp=nthPalindromeBase[k,7];如果[palQ[pp,3],AppendTo[lst,pp];打印[pp]];k++];第一次
b1=3;b2=7;lst={};Do[d1=整数位数[n,b1];d2=整数位数[n,b2];如果[d1==反转[d1]&&d2==反转[d2],追加到[lst,n]],{n,0,10000000}];第一次(*文森佐·利班迪2015年7月17日*)
交叉参考
囊性纤维变性。A007632号,A007633号,A029731号,A029804号,A029961号,A029962号,A029963号,A029964号,A029965美元,A029966号,A029967号,A029968号,A029969美元,A029970型,A048268号,A060792号,A097855号,A097856号,A097928号,A097929号,A097930号,A097931号,A099145型,A099146号,A099165号,A182232号,A182233号,A182234号,A250408型,250409元,A250410型,A250411型,A250412型,259374元,A259375型,A259376号,259377元,A259378号,A249156号,A259380型,A259381型,A259382型,A259383型,A259384型,A259385型,A259386型,A259387号,A259388号,A259389号,259390元.
0, 1, 2, 3, 5, 85, 150, 235, 257, 8802, 9958, 13655, 14811, 189806, 428585, 786435, 9262450, 31946605, 34179458, 387973685, 424623193, 430421657, 640680742, 742494286, 1692399385, 22182595205, 30592589645, 1103782149121, 1134972961921, 1871644872505, 2047644601565, 3205015384750, 3304611554563, 3628335729863, 4467627704385
例子
85在序列中,因为85_10=151_7=1111_4。
数学
(*首先从中加载nthPalindromeBaseA002113号*)palQ[n_Integer,base_Integer]:=块[{},反转[idn=IntegerDigits[n,base]]==idn];k=0;lst={};而[k<21000000,pp=nthPalindromeBase[k,7];如果[palQ[pp,4],AppendTo[lst,pp];打印[pp]];k++];第一次
b1=4;b2=7;lst={};Do[d1=整数位数[n,b1];d2=整数位数[n,b2];如果[d1==反转[d1]&&d2==反转[d2],追加到[lst,n]],{n,0,10000000}];第一次(*文森佐·利班迪2015年7月17日*)
交叉参考
囊性纤维变性。A048268号,A060792号,A097856号,A097928号,A182232号,A259374号,A097929,A182233号,A259375型,A259376号,A097930美元,A182234号,259377元,A259378号,A249156号,A097931号,A259380型,A259381型,A259382型,A259383型,A259384型,A099145型,A259385型,A259386型,A259387号,A259388号,A259389号,259390元,A099146号,A007632号,A007633号,A029961美元,A029962号,A029963号,A029964号,A029804号,A029965号,A029966号,A029967号,A029968号,A029969号,A029970型,A029731号,A097855号,A250408型,A250409型,A250410型,250411元,A099165号,A250412型.
0, 1, 2, 3, 5, 63, 65, 105, 130, 170, 195, 235, 325, 341, 357, 373, 4095, 4097, 4161, 4225, 4289, 6697, 6761, 6825, 6889, 8194, 8258, 8322, 8386, 10794, 10858, 10922, 10986, 12291, 12355, 12419, 12483, 14891, 14955, 15019, 15083, 20485, 20805, 21525, 21845
例子
235在序列中,因为235_10=353_8=3223_4。
数学
(*首先从中加载nthPalindromeBaseA002113号*)palQ[n_Integer,base_Integer]:=块[{},反转[idn=IntegerDigits[n,base]]==idn];k=0;lst={};而[k<21000000,pp=nthPalindromeBase[k,8];如果[palQ[pp,4],AppendTo[lst,pp];打印[pp]];k++];第一次
b1=4;b2=8;lst={};Do[d1=整数位数[n,b1];d2=整数位数[n,b2];如果[d1==反转[d1]&&d2==反转[d2],追加到[lst,n]],{n,0,30000}];第一次(*文森佐·利班迪2015年7月17日*)
交叉参考
囊性纤维变性。A048268号,A060792号,A097856号,A097928号,A182232号,259374元,A097929号,A182233号,A259375型,A259376号,A097930号,A182234号,259377元,A259378号,A249156号,A097931号,A259380型,A259381型,A259382型,A259383型,A259384型,A099145型,A259385型,A259386型,A259387号,A259388号,259389元,A259390型,A099146号,A007632号,A007633号,A029961号,A029962号,A029963号,A029964号,A029804号,A029965号,A029966号,A029967号,A029968号,A029969号,A029970型,A029731号,A097855号,A250408型,A250409型,250410英镑,A250411型,A099165号,A250412型.
搜索在0.014秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|Demos公司|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月20日20:48。包含376078个序列。(在oeis4上运行。)
|