(带下划线的文本是附加;删除线文本是删除.)
显示所有更改。
|
|
|
|
#5通过查尔斯·格里特豪斯四世2015年4月28日星期二14:57:42 EDT |
|
|
|
#4通过查尔斯·格里特豪斯四世2015年4月28日星期二14:57:29 EDT |
|
|
|
#3通过俄罗斯考克斯2012年3月30日星期五17:31:23 EDT |
| 作者
|
_罗伯特·威尔逊v(rgwv(相对湿度)(自动变速箱)rgwv公司.通用域名格式),_,2007年9月30日
|
|
|
讨论
|
3月30日星期五
| 17:31
| OEIS服务器: https://oeis.org/edit/global/156
|
|
|
|
#2通过N.J.A.斯隆2008年6月29日,美国东部夏令时03:00:00 |
| 评论
|
术语数量<10^n:0,0,0,0,1,31,288, ..., ., ....
|
| 关键词
|
非n,新的
非n
|
|
|
|
#1通过N.J.A.斯隆2007年11月10日星期六东部标准时间03:00:00 |
| 名称
|
家常菜大于8的家常菜。
|
| 数据
|
77773, 178069, 229751, 312619, 313613, 313739, 317741, 317903, 337457, 337853, 352489, 359929, 364627, 374531, 374587, 375743, 375997, 378997, 379103, 379187, 379397, 379811, 379997, 389971, 719239, 733391, 742283, 747521, 749711, 771941
|
| 抵消
|
1,1
|
| 评论
|
术语数量<10^n:0,0,0,1,31,288。
|
| 数学
|
lst={};f[n_]:=FromDigits@Flatten[IntegerDigits@表格[#[[1]],{#[2]]}]&/@因子整数@n, 2]; h[n_]:=嵌套WhileList[f@#&,n,!PrimeQ@#&、1、28];做[p=h[n][[-1]];如果[底漆Q@p&&p<10^7&&p!=n、 打印[{n,p}];附加到[lst,p]],{n,2,1000}];
d=9-2;lsu={};Do[If[lst[[n]]==lst[[n+d]],AppendTo[lsu,lst[n]],{n,188004-d-1}];拿下[Union@lsu,30]
|
| 交叉参考
|
参见。A037274号,A118756号,A133957号,A133959号,A133961号,A133963号,A133965号,A133967号,A133969号,A133973号,133975英镑,A133977号,A133979号.
|
| 关键词
|
非n
|
| 作者
|
Robert G.Wilson v(rgwv(AT)rgwv.com),2007年9月30日
|
| 状态
|
经核准的
|
|
|
|
|