|
黄体脂酮素
|
(PARI)最后一个(n,k)=如果(n*8\9-1<k,n=n!;返回(n/10^估值(n,10)%10^k));my(m=Mod(1,5^k));对于(i=2,n,m*=i/10^估值(i,5));lift(中文(m,Mod(0,2^k))\\给出n!的最后k位小数!。
(PARI)是(n)=我的(m=Mod(1,25));对于(i=2,n,m*=i/10^估值(i,5));m==72\\查尔斯·格里特豪斯四世2014年10月22日
(PARI)v=列表();m=Mod(1,25);对于(n=2,1e6,m*=n/10^估值(n,5);如果(m==72,则列表输入(v,n);如果(#v==100,返回(Vec(v)))\\查尔斯·格里特豪斯四世2014年10月22日
|