登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A095180型 质数的倒数,如果结果是质数,则追加到序列。
2, 3, 5, 7, 11, 31, 71, 13, 73, 17, 37, 97, 79, 101, 701, 311, 131, 941, 151, 751, 761, 971, 181, 191, 991, 113, 313, 733, 743, 353, 953, 373, 383, 983, 107, 907, 727, 337, 937, 347, 157, 757, 167, 967, 787, 797, 709, 919, 929, 739, 149, 359, 769, 179, 389, 199 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
推测:Benford定律极限为2=Sum[N[Log[10,1+1/d[[N]]],{N,1,Length[d]}]^2/((#totalprimes/#totalprimes))。总共有50000个素数,是2.05931-罗杰·巴古拉加里·亚当森2008年7月2日
这大概不符合本福德定律-N.J.A.斯隆2017年2月9日
链接
因德拉尼尔·戈什,n=1..25000时的n,a(n)表(罗杰·巴古拉(Roger L.Bagula)和加里·亚当森(Gary W.Adamson)第1..206条)
埃里克·魏斯坦的数学世界,本福德定律.
例子
反面的质数107是701,它是质数。
数学
b=扁平[Table[If[PrimeQ[Sum[IntegerDigits[Prime[n]][[i]]*10^(i-1),{i,1,Length[Integer Digits[Prime[n]]}]],Sum[integerDiges[Prime[n]][[i]]*10 ^(i-1),{i,1,Length[IntegerDigits[Prime[n]]]}],{}],}n,1,1000}]](*罗杰·巴古拉加里·亚当森2008年7月2日*)
选择[FromDigits[Reverse[IntegerDigits[#]]]和/@Prime[Range[300]],PrimeQ](*哈维·P·戴尔2015年5月5日*)
黄体脂酮素
(PARI)r(n)=素数(x=1,n,y=eval(rev(x)));if(isprime(y),print1(y“,”))\Get the reverse of the input string rev(str)={local(tmp,j,s);tmp=Vec(str(str,str));s=“”;forstep(j=length(tmp),1,-1,s=concat(s,tmp[j]));return(s)}
(哈斯克尔)
a095180 n=a095180_列表!!(n-1)
a095180_list=过滤器((==1)。a010051)a004087_列表
--莱因哈德·祖姆凯勒2011年10月14日
交叉参考
囊性纤维变性。A007500元.
囊性纤维变性。A004087号,A010051型.
关键词
基础,容易的,非n
作者
西诺·希利亚德2004年6月21日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月19日04:58。包含370952个序列。(在oeis4上运行。)