24/04/19 15:18:41.90 xQljC2Pa.net
>>321
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)をインストール（要登録）していれば以下のように表示される。
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= Table[1+Sum[Floor[n^(1/n) (Sum[Floor[(Cos[Pi(((x-1)!+1)/x)])^2],{x,1,m}])^(-1/n)],{m,1,2^n}],{n,1,10}]
Out[1]= {2, 3, 5, 7, 11, 13, 17, 19, 23, 29}
拙作の関数でも
In[2]:= prime[n_] := 1 + Total[Table[Floor[(n/( Total[Table[Floor[Cos[(Factorial[k-1]+1)Pi/k]^2],{k,1,m}]]))^(1/n)],{m,1,2^n}]]
In[3]:= prime[11]
Out[3]= 31
と11番目の素数が表示される。