搜索: a063850-编号:a063850
|
|
|
|
39, 1319, 211319, 12311319, 41122319, 1431221319, 4114232219, 2431321319, 2214333119, 2231143319, 2233311419, 2233311419
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
可以证明,任何库存序列都在一个周期中结束,所有周期的项都小于等于10^20。
|
|
链接
|
|
|
例子
|
以39开头的库存序列是:39、1319、211319、12311319、41122319、1431221319、4114232219、2431321319、2214333119、2231143319、2233114319、。。。。循环为223331141922333311419。。。。2233311419是质数。
|
|
数学
|
g[n_]:=模块[{seen,r,d,l,i,t},seen={};r={},d=整数位数[n];l=长度[d];对于[i=1,i<=l,i++,t=d[i]];如果[!MemberQ[seen,t],r=Join[r,IntegerDigits[Count[d,t]]];r=连接[r,{t}];seen=附加[seen,t]]];起始数字[r]];
pr[n_]:=模块[{r,t,p1,p,a},r={};t=g[n];a=正确;而[!MemberQ[r,t],r=Append[r,t];t=克[t]];r=附加[r,t];p1=压扁[位置[r,t]];p=PrimeQ[Drop[r,p1[[1]]];如果[MemberQ[p,False],a=False';a] ;l={};对于[k=1,k<=10^4,k++,如果[pr[k],l=Append[l,k]]]
|
|
交叉参考
|
|
|
关键词
|
基础,美好的,非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
2, 12, 1112, 3112, 132112, 311322, 232122, 421311, 14123113, 41141223, 24312213, 32142321, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
黄体脂酮素
|
(Perl)#/usr/bin/perl-l使用严格;使用警告;die“用法:$0<number>”,除非@ARGV==1$_=移位;{print;my(%cnt,%saw);$cnt{$_}++for//克;年月日$看到{$&}++?'':$cnt{$&}.$&/ge;<>中,重做;}__结束__
|
|
交叉参考
|
|
|
关键词
|
基础,容易的,非n
|
|
作者
|
Michele Dondi(blazar(AT)lcm.mi.infn.it),2005年9月9日
|
|
状态
|
经核准的
|
|
|
|
|
|
|
5, 15, 1115, 3115, 132115, 31131215, 23411215, 2213143115, 2241231415, 3224311315, 3322143115, 3322311415, 3322311415, 3322311415, 3322311415, 3322311415, 3322311415
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
黄体脂酮素
|
(Perl)#/usr/bin/perl-l使用严格;使用警告;die“用法:$0<number>”,除非@ARGV==1$_=移位;{print;my(%cnt,%saw);$cnt{$_}++for//克;年月日$看到{$&}++?'':$cnt{$&}.$&/ge;<>,重做;}__结束__
|
|
交叉参考
|
|
|
关键词
|
基础,容易的,非n
|
|
作者
|
Michele Dondi(blazar(AT)lcm.mi.infn.it),2005年9月9日
|
|
状态
|
经核准的
|
|
|
|
|
|
|
2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 4, 2, 1, 2, 1, 1, 4, 4, 4, 4, 3, 1, 1, 1, 1, 1, 4, 3, 3, 3, 2, 1, 1, 1, 4, 4, 1, 3, 2, 2, 2, 1, 1, 1, 4, 3, 3, 1, 2, 2, 2, 1, 1, 1, 4, 3, 2, 2, 1, 2, 2, 1, 1, 1, 4, 3, 2, 2, 2, 1, 1
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
可以证明,任何库存序列都在一个周期中结束,所有周期的项都小于等于10^20。猜想:对于所有n,a(n)<=4。对于以n开头的所有库存序列,检查这一点就足够了,其中n<=10^20。
|
|
链接
|
|
|
例子
|
以1开头的库存序列是:1、11、21、1211、3112、132112、311322、232122、421311、14123113、41141223、24312213、32142321、23322114、3232114、2332114。。。。结束于周期2的周期32232114、23322114。因此a(1)=2。
|
|
数学
|
g[n_]:=模块[{seed,r,d,l,i,t},seed={};r={};d=整数[n];l=长度[d];对于[i=1,i<=l,i++,t=d[i]];如果[!MemberQ[seen,t],r=Join[r,IntegerDigits[Count[d,t]]];r=连接[r,{t}];seen=附加[seen,t]]];FromDigits[r]];
per[n_]:=模块[{r,t,p1,p},r={};t=g[n];而[!MemberQ[r,t],r=Append[r,t];t=克[t]];r=追加[r,t];p1=压扁[位置[r,t]];p=p1[2]]-p1[1]];p] ;表[每[i],{i,1,100}]
|
|
交叉参考
|
|
|
关键词
|
基础,美好的,非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 22, 112, 121, 211, 333, 1113, 1131, 1311, 3111, 4444, 11114, 11141, 11411, 14111, 22233, 22323, 22332, 23223, 23232, 23322, 32223, 32232, 32322, 33222, 41111, 55555
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
112的“inventory”是2112(两个“1”,一个“2”),这是一个回文。因此112属于该序列。
|
|
数学
|
g[n_]:=模块[{seen,r,d,l,i,t},seen={};r={},d=整数位数[n];l=长度[d];对于[i=1,i<=l,i++,t=d[i]];如果[!MemberQ[seen,t],r=Join[r,IntegerDigits[Count[d,t]]];r=连接[r,{t}];seen=附加[seen,t]]];FromDigits[r]];isPalin[n_]:=(n==起始数字[Reverse[IntegerDigits[n]]]);选择[范围[10^5],isPalin[g[#]]&]
|
|
交叉参考
|
|
|
关键词
|
基础,非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 3, 7, 9, 17, 23, 27, 33, 39, 51, 63, 69, 81, 93, 99, 111, 113, 127, 131, 133, 137, 193, 199, 203, 209, 223, 232, 233, 271, 299, 301, 311, 313, 331, 359, 361, 367, 371, 377, 414, 431, 433, 439, 441, 447, 451, 463, 469, 474, 477, 479, 481, 497, 499, 503, 523
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
299的“库存”是1229(一个“2”,两个“9”),这是最优的。因此299属于该序列。
|
|
数学
|
g[n_]:=模块[{seen,r,d,l,i,t},seen={};r={},d=整数位数[n];l=长度[d];对于[i=1,i<=l,i++,t=d[[i]];如果[!MemberQ[seen,t],r=Join[r,IntegerDigits[Count[d,t]]];r=连接[r,{t}];seen=附加[seen,t]]];FromDigits[r]];选择[Range[10^3],PrimeQ[g[#]]&]
|
|
交叉参考
|
|
|
关键词
|
基础,非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
6, 55, 116, 161, 255, 511, 666, 969, 996, 5311, 9666, 9999, 12255, 12525, 12552, 41199, 41919, 41991, 54246, 54264, 54426, 71177, 71717, 71771, 72255, 72525, 72552, 77117, 77171, 77711, 78055, 83399, 83939, 83993, 89999, 97117, 97171
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
例子
|
511的“库存”是1521(一个“5”,两个“1”)=39^2。因此1521属于该序列。
|
|
数学
|
g[n_]:=模块[{seen,r,d,l,i,t},seen={};r={},d=整数位数[n];l=长度[d];对于[i=1,i<=l,i++,t=d[i]];如果[!MemberQ[seen,t],r=Join[r,IntegerDigits[Count[d,t]]];r=连接[r,{t}];seen=附加[seen,t]]];FromDigits[r]];选择[Range[10^5],IntegerQ[Sqrt[g[#]]&]
|
|
交叉参考
|
|
|
关键词
|
基础,非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
3, 7, 17, 23, 113, 127, 131, 137, 193, 199, 223, 233, 271, 311, 313, 331, 359, 367, 431, 433, 439, 463, 479, 499, 503, 523, 587, 607, 641, 677, 691, 733, 773, 797, 809, 821, 823, 829, 853, 997, 1009, 1069, 1123, 1129, 1187, 1213, 1217, 1223, 1231, 1277, 1291
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
例子
|
素数127的库存编号为111217(一个“1”,一个“2”,一个“7”),也是素数。因此127属于该序列。
|
|
数学
|
g[n_]:=模块[{seen,r,d,l,i,t},seen={};r={},d=整数位数[n];l=长度[d];对于[i=1,i<=l,i++,t=d[i]];如果[!MemberQ[seen,t],r=Join[r,IntegerDigits[Count[d,t]]];r=连接[r,{t}];seen=附加[seen,t]]];FromDigits[r]];s={};对于[j=1,j<=10^3,j++,temp=Prime[j];如果[PrimeQ[g[temp]],s=附加[s,temp]]];秒
|
|
交叉参考
|
|
|
关键词
|
基础,容易的,非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
3, 13, 1113, 3113, 2321, 221311, 223113, 222321, 421311, 14123113, 41141223, 24312213, 32142321, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114, 23322114
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
最终是周期性的。
|
|
链接
|
|
|
黄体脂酮素
|
(Perl)#/usr/bin/perl-l使用严格;使用警告;die“用法:$0<number>”,除非@ARGV==1$_=移位;{print;my(%cnt,%saw);$cnt{$_}++for//克;年月日$看到{$&}++?“”:$cnt{$&}.$&/ge;<>,重做;}__结束__
|
|
交叉参考
|
|
|
关键词
|
基础,容易的,非n
|
|
作者
|
Michele Dondi(blazar(AT)lcm.mi.infn.it),2005年9月9日
|
|
状态
|
经核准的
|
|
|
|
|
|
|
4, 14, 1114, 3114, 132114, 31131214, 23411214, 22132431, 32212314, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
最终是周期性的。
|
|
链接
|
|
|
黄体脂酮素
|
(Perl)#/usr/bin/perl-l使用严格;使用警告;die“用法:$0<number>”,除非@ARGV==1$_=移位;{print;my(%cnt,%saw);$cnt{$_}++for//克;年月日$看到{$&}++?'':$cnt{$&}.$&/ge;<>,重做;}__结束__
|
|
交叉参考
|
|
|
关键词
|
基础,容易的,非n
|
|
作者
|
Michele Dondi(blazar(AT)lcm.mi.infn.it),2005年9月9日
|
|
状态
|
经核准的
|
|
|
搜索在0.014秒内完成
|