24/04/18 20:17:41.01 64Io791z.net
Wolfram言語に慣れるための練習問題
URLﾘﾝｸ(www.jstor.org)
の素数の一般項をWolframに1行で実装せよ。
想定解
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}]]
Wolfram言語に詳しい方の検証を希望。
24/04/18 20:17:41.01 64Io791z.net
Wolfram言語に慣れるための練習問題
URLﾘﾝｸ(www.jstor.org)
の素数の一般項をWolframに1行で実装せよ。
想定解
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}]]
Wolfram言語に詳しい方の検証を希望。