%I#47 2014年12月18日02:13:34

%S 4,5,3,8,5,4,7,5,9,12,6,10,9,11,4,15,7,8,7,13,18,9,13,17,9,10,10，

%T 23,11,11,18,17,17,18,21,15,14,28,13,26,36,8,13,32,22,16,6,24,15,22，

%U 28、21、15、28、16、42、23、32、25、8、20、18、20、33、26、10、35、14、5、29

%N极大t在[2，素数（N）-1]中，使得2！，三！，。。。，t！模素数（n）是不同的。

%如果A247190（n）=0，则C a（n）=素数（n）-1；否则a（n）=m-1，其中m在A247190中定义。

%C见A247190中的注释。

%H Peter J.C.Moses和Chai Wah Wu，n表，a（n）表示n=3..10002。

%F a（n）>=A247190（n）。

%t表格[ans={}；

%t NestWhile[#+1&，2，（AppendTo[ans，Mod[#！，Prime[n]]]；（长度[ans]<Prime[n]-1）&&（最大[Last[Transpose[Tally[ans]]]==1））&]-1，{n，3,50}]（*_Peter J.C.Moses_，2014年11月25日*）

%o（Python）

%o来自sympy import prime

%o定义A245085（n）：

%o。。。。p、 f，fv=素数（n），1，{}

%o。。。。对于范围（2，p）中的i：

%o。。。。。。。。f=（f*i）%p

%o。。。。。。。。如果f在fv中：

%o。。。。。。。。。。。。返回i-1

%o。。。。。。。。其他：

%o。。。。。。。。。。。。fv[f]=i

%哦。。。。2014年12月15日，返回p-1#_恰瓦乌

%Y参考A000040，A247190。

%K nonn公司

%O 3、1

%2014年11月25日，A_Vladimir Shevelev

%E 2014年11月25日，P皮特·J·C·摩斯的更多条款