WolframAlpha computational knowledge AI
Table[(Floor[(-1 + Sqrt[1 + 8*n])/2] - 1)/2 + n/Floor[(-1 + Sqrt[1 + 8*n])/2], {n, 1, 15}]