|
|
A091645号 |
| 小于10^n的素数至少有一个数字1。 |
|
11
|
|
|
0, 8, 67, 559, 4917, 44073, 402030, 3709989, 34534791, 323587790, 3046685950, 28798331502, 273078628285, 2596399340798
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
a(2)=8,因为25个素数小于10^2,8至少有一个1位数。
|
|
数学
|
NextPrim[n_]:=块[{k=n+1},While[!PrimeQ[k],k++];k] ;c=0;p=1;执行[While[p=NextPrim[p];p<10^n,如果[Position[Integer Digits[p],1]!={},c++]];打印[c];p--,{n,1,8}](*罗伯特·威尔逊v2004年2月2日*)
NextPrim[n_]:=块[{k=n+1},While[!PrimeQ[k],k++];k] ;c=0;p=1;执行[While[p=NextPrim[p];p<10^n,如果[Position[Integer Digits[p],2]!={},c++]];打印[c];p--,{n,1,8}](*罗伯特·威尔逊v2004年2月2日*)
|
|
交叉参考
|
|
|
关键词
|
更多,非n,基础
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|