24/04/17 08:22:13.65 Ec1zJCxR.net
>>260
Wolframの練習にsolverを作成
solve[n_] := (
d=Divisors[n+1];
a1=d[[1;;Ceiling[Length[d]/2]]];
b1=(n+1)/a1;
(a1-b1)^2)
solve[2024]
solve[12345]
solve[123456789]
In[52]:= solve[123456789]
Out[52]= {15241578750190521, 3810394502362449, 609662912970609, 152415543057561, 11133119776689,
> 2783094764121, 445087788201, 111086890209}
Rだとoverflowしてしまうが計算してくれて( ・∀・)ｲｲ!!
まあ、検証できないがｗ