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