%I#13 2017年9月15日23:15:43

%第5页，53577335964490193992340243721566492156649017215664901，

%电话：2431042159372156649015323598805767234215933599923，

%电话：3593992359880576749514631447249888057672348867402431042159335939

%N gamma十进制展开式中的第一个N位素数，即Euler-Marcheroni常数。

%C Euler-Marcheroni伽马=0.577215664901532860606512090082402431042。。。

%e A001620中的位置：1、13、1、43、8、46、30、3、4、3、33、3、50、38、44、96、53、31、40、64。。。

%p位数：=10000：p0：=evalf（gamma）*10：对于从1到20的d do：id：=0：对于从中的i

%p0到50000，而（id=0）do:q0:=trunc（p0*10^（i+d-1））：x:=irem（q0,10^d）：如果类型（x，prime）=true

%p和长度（x）=d，然后打印f（`%d，`，x）：id:=1:else fi:od:od:~

%t使用[{eg=RealDigits[EulerGamma，10250][[1]]}，表[First[Select[FromDigits/@Partition[eg，n，1]，PrimeQ[#]&&IntegerLength[#]==n&]]，{n，20}]]（*Harvey P.Dale_，2011年9月29日*）

%Y参考A001620。

%K nonn，基础

%O 1,1号机组

%2011年2月15日，拉格瑙市