>>378

0 0 0 1 2 ...
みたいな数が並んでいるものが、何度も現れているので、それが目的かと思い、それを表現する式を >>340 で書いた
すると、>>346 で修正が必要と指摘され、87 71 85 70 55.... こそが目的で、惜しいと言われた。
そこで、>>352 で「修正」に当たる部分を表現した。

本当は、合わせた式にしたかったが、Wolframが「長すぎる」ことが原因だと思うが、理解してくれなかったから、
補正部分のみを書いた。改めて書く。

Table[Floor[Abs[n-(Floor[(Floor[Sqrt[2n+1]]+1)^2/2]-1/2-Floor[(Floor[Sqrt[2n+1]]+1)/2])]],{n,1,44}]
{0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 2, 1, 0, 0, 1, 2, 2, 1, 0, 0, 1, 2, 3, 2, 1, 0, 0, 1, 2, 3, 3, 2, 1, 0, 0, 1, 2, 3, 4, 3, 2, 1, 0}
と
Table[89-2 Floor[(-1+Sqrt[1+8n])/2]+(n-(Floor[(-1+Sqrt[1+8n])/2]+1)(Floor[(-1+Sqrt[1+8n])/2])/2)^2-17(n-(Floor[(-1+Sqrt[1+8n])/2]+1)(Floor[(-1+Sqrt[1+8n])/2])/2),{n,1,44}]
{87, 71, 85, 69, 55, 83, 67, 53, 41, 81, 65, 51, 39, 29, 79, 63, 49, 37, 27, 19, 77, 61, 47, 35, 25, 17, 11, 75, 59, 45, 33, 23, 15, 9, 5, 73, 57, 43, 31, 21, 13, 7, 3, 1}
の和
難易度は、そんなに高くない。面倒くさいだけ。
87 71 85 70 ...に当たる数字が、何段目の何列目の数字か、そしてそれが第何項に当たるかを求め、それら組み合わせて、
上のように分離された数を表す式を出すだけ。
例えば、一番左の数字は、1,3,6,10,...と三角数に当たる項数だけが来ているが、このようなものに注目して、逆算すればよい。