gxqcn 发表于 2012-7-18 10:13:37

还是举个例子吧
0000000000 -> 0
0000000001 -> 1
1000000000 -> 10000000000

不是说Pi里可以取得任意数字序列吗？e的情况不知道。
风云剑 发表于 2012-7-18 09:26 http://bbs.emath.ac.cn/images/common/back.gif

就是这个意思。

mathematica 发表于 2012-7-19 08:24:55



不大,对于一串随机的数字,由素数定理,在70来个的时候,出现10位素数的可能性就超过50%了,基本上是这个数量级
shshsh_0510 发表于 2012-7-17 19:05 http://bbs.emath.ac.cn/images/common/back.gif
这个整数还是比较大的!!(*自然对数E从左向右连续10个整数所组成的第一个素数是?
地址:http://bbs.emath.ac.cn/thread-4465-1-1.html*)
Clear["Global`*"];(*Clear all variables*)
a=Floor@N;(*产生自然对数e的前1000位*)
(*子函数,用于求解大整数a0从左向右连续k位数字组成
整数中的第一个素数.
函数返回结果的含义是:多少位整数?从第几个位开始?这个整数是?*)
num:=(*k0:连续的多少个整数;a0:大整数*)
    Module[
      {
      k=k0,
      a=a0,
      b,c,j,out
      },
      b=IntegerDigits;
      Do[ c=FromDigits@b[];
            If[ (PrimeQ@c)&&(b[]!=0),
                out={k,j,c};
                Break[]
            ],
            {j,1,900}
      ];
      out
    ]
(*循环求解,调用子函数*)
Do;Print@out,{k,1,20}]
求解结果如下:

{1,1,2}

{2,2,71}

{3,1,271}

{4,15,4523}

{5,25,74713}

{6,13,904523}

{7,1,2718281}

{8,65,72407663}

{9,20,360287471}

{10,100,7427466391}

{11,38,75724709369}

{12,54,749669676277}

{13,8,8284590452353}

{14,48,99959574966967}

{15,40,724709369995957}

{16,41,2470936999595749}

{17,9,28459045235360287}

{18,83,571382178525166427}

{19,152,5956307381323286279}

{20,19,53602874713526624977}

由此可以看出100确实是个比较大的结果

manthanein 发表于 2017-1-23 16:28:23

https://oeis.org/A095935
https://oeis.org/A137443
https://oeis.org/A104851
OEIS真是神一般的存在啊
页: 1 [2]
查看完整版本: 自然对数E从左向右连续10个整数所组成的第一个素数是?