|
|
|
|
773, 1129, 3137, 3251, 3593, 3797, 7541, 7853, 23167, 23557, 23719, 23743, 23773, 23971, 31973, 33191, 33331, 33769, 33863, 37307, 37573, 37691, 37997, 39733, 39929, 47797, 53101, 61613, 67349, 67709, 71129, 71171, 71443, 71719, 73181
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
术语数量<10^n:0,0,1,8,44,417,3299。
|
|
链接
|
|
|
例子
|
仅(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=5-2;lsu={};Do[If[lst[[n]]==lst[[n+d]]&&lst[[n-1]]!=lst[[n]]&&lst[[n]]!=lst[[n+d+1]],附加到[lsu,lst[n]]],{n,188004-d-1}];拿下[Union@lsu,45]
|
|
交叉参考
|
囊性纤维变性。A037274号,A118756号,A133963号,A133956号,A133957号,A133958号,A133960型,A133962号,133966英镑,A133968号,A133970号,A133972号,A133974号,133976英镑,A133978号。
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|