|
|
A091708号 |
| 小于10^n的素数至少有一个数字7。 |
|
10
|
|
|
1, 9, 68, 549, 4819, 43506, 397756, 3681943, 34344296, 322199867, 3036544958, 28722439343, 272501681533, 2591959274190
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
a(1)=1,因为4个素数小于10^1,1至少有一个数字7。
|
|
数学
|
NextPrim[n_]:=块[{k=n+1},While[!PrimeQ[k],k++];k] ;c=0;p=1;执行[While[p=NextPrim[p];p<10^n,如果[Position[InterDigits[p],7]!={},c++]];打印[c];p--,{n,1,8}](*罗伯特·威尔逊v2004年2月2日*)
表[Count[Prime[Range[PrimePi[10^n]]],_?(数字计数[#,10,7]>0&)],{n,12}](*哈维·P·戴尔2013年3月3日*)
|
|
交叉参考
|
|
|
关键字
|
非n,基础
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|