找回密码
 欢迎注册
楼主: medie2005

[讨论] 阶乘和圆周率

  [复制链接]
发表于 2019-12-26 07:42:48 来自手机 | 显示全部楼层
所以关键是要脱离前一个人n!要求高度匹配$pi$的限制。于是每次跳跃的步长会不等于q,而是一个根据中国剩余定理推测出的最佳选择
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-1-13 11:15:06 | 显示全部楼层
昨天我把Ickiverar的结果提交到 https://oeis.org/A328955 了,快速被批准了
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-2-20 02:07:29 | 显示全部楼层
太佩服这种计算毅力了,12年的斯特林接力赛
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2021-1-28 22:54:57 | 显示全部楼层
13年后的我们,都还在论坛里活跃,好感动,好温馨。。。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2021-1-29 07:41:23 | 显示全部楼层
wayne 发表于 2021-1-28 22:54
13年后的我们,都还在论坛里活跃,好感动,好温馨。。。

13年后大佬还在耕耘贴子,尤为敢动。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2021-1-29 08:45:14 | 显示全部楼层
这个问题换一种语言来描述就是 一个方程求根的问题:定义$f(x)= x-\lfloor \frac{x}{\log (10)}\rfloor \log (10) $, 求方程 $f(log \Gamma(n+1)) ->\log (\pi ) $的正整数根。
具体到$m$位小数的精度就是计算  $ \log (\frac{\lfloor10^m\pi\rfloor }{10^m}) <f(log \Gamma(n+1)) < \log (\pi ) $

点评

终于从头到尾看了一遍,都是神啊!  发表于 2021-1-29 09:09
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2021-2-1 16:09:29 | 显示全部楼层
本帖最后由 uk702 于 2021-2-1 17:04 编辑
Ickiverar 发表于 2019-12-18 08:36
13位小数的结果有了,119万亿左右。
d =  0, n = 9
d =  1, n = 62


#111 的数据似乎不太对(不是满足要求的最小值),n=149 832 529 < 688 395 641 应该就满足了 d=8 的要求。

Mathematica 计算如下:
  1. a = (LogGamma[149832530`200] - Log[Pi])/Log[10]; b = a - Round[a]; Pi* Exp[b]
  2. Out=3.141 592 65  64147249433307...
复制代码

不知对不对,请几位大拿帮忙检查。


应该算错了,应该用如下公式才正确:
  1. a=LogGamma[149832530`200] /Log[10]; b = a - Round[a]; 10^b
复制代码


或者
  1. 149832529`200!
复制代码

才对,结果显示 149832529`200! = 3.1415926   60094438874627...  * 10^1159900303

因此,149832529 只满足 d=7 的要求。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2021-2-1 16:38:32 | 显示全部楼层
本帖最后由 uk702 于 2021-2-1 16:49 编辑

(似乎哪算错了,删除)
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2021-2-1 23:07:22 | 显示全部楼层
uk702 发表于 2021-2-1 16:09
#111 的数据似乎不太对(不是满足要求的最小值),n=149 832 529 < 688 395 641 应该就满足了 d=8 的要 ...

直接计算小数部分就行,整数部分只是$10^m$倍,贡献位数,不贡献数字:

  1. In[8]:= n = 688395641; 10^FractionalPart[LogGamma[n + 1`30]/Log[10]]

  2. Out[8]= 3.14159265 19628862909594556085

  3. In[9]:= n = 149832529; 10^FractionalPart[LogGamma[n + 1`30]/Log[10]]

  4. Out[9]= 3.1415926 600944388746275227823

  5. In[10]:= n = 65630447; 10^FractionalPart[LogGamma[n + 1`30]/Log[10]]

  6. Out[10]= 3.1415926 027560367237603775274
复制代码

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2021-2-2 07:36:25 | 显示全部楼层
wayne 发表于 2021-2-1 23:07
直接计算小数部分就行,整数部分只是$10^m$倍,贡献位数,不贡献数字:

我看了前辈的代码,似乎都是逐个 n 进行计算,最好的记录是10秒能算80亿=8*10^9,我看看能否打破这个记录,如果能找到 d=14 的结果当然最好,但没太多信心,n>119027672349942 时,我现在只找到 2 个满足 d=12 约束的。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2024-11-24 08:24 , Processed in 0.031987 second(s), 19 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表