|
| |
| |
|
|
|
773, 1129, 3137, 3251, 3389, 3593, 3761, 3797, 7541, 7853, 13367, 23167, 23251, 23557, 23719, 23743, 23761, 23773, 23929, 23971, 31193, 31397, 31973, 33191, 33331, 33769, 33797, 33863, 36389, 37199, 37307, 37463, 37547, 37573, 37607
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
术语数量<10^n:0，0，1，10，75，758，5994。。。。
|
|
|
链接
|
|
|
|
例子
|
（10、25、55、511、773）->773等。
|
|
|
数学
|
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=4-2；lsu={}；Do[If[lst[[n]]==lst[[n+d]]，AppendTo[lsu，lst[[n]]]，{n188004-d-1}]；拿下[Union@lsu，40]
|
|
|
交叉参考
|
囊性纤维变性。A037274号,A118756号,A133957号,A133959号,A133961号,A133965号,A133967号,A133969号,A133971号,A133973号,A133975号,A133977号,A133979号.
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
