proposed
approved
proposed
approved
editing
proposed
Clark Kimberling, <a href="/A325733/b325733_1.txt">Table of n, a(n) for n = 1..200</a>
editing
approved
Note that the Mathematica implementation and the data do not match the NAME (due to different settings of the parentheses). According to the NAME, this would be a inverse binomial transformation of A137803. - R. J. Mathar, May 22 2019
Table[First[Differences[Table[Floor[(1/2+Sqrt[2])*n], {n, 0, 3050}], n]], {n, 0, 1, 50}]
1, 1, -2, 4, 1, 1, -1, 1, -8, 15, 1, 1, -25, 35, 1, 1, -35, 1, 0, 126, -462, 1253, 11, -2989, 6615, 77, 363, -13867, 27734, 1364, 4367, -52921, 95863, 12375, 31823, -163115, 255493, 75581, 167959, -352716, 379050, 352715, 705431, -134596, 1352078, 2496167, -828875, 3407821, 4457699, 7728759, -9217717, 20837509, 13055444, 21572459, -41675018, 74480265, 35072309, 56663099, -116145145, 143502875, 92561039, 157073279, -78990635, 286097759, 572195518, -286097760, 14531791251251677664
1,313
Clark Kimberling, <a href="/A325733/b325733_1.txt">Table of n, a(n) for n = 1..200</a>
Table[First[Differences[Table[Floor[(1/2+Sqrt[2])*n], {n, 0, 30}], n]], {n, 0, 50}]
proposed
editing
editing
proposed
Note that the Mathematica implementation and the data do not match the NAME (due to different settings of the parentheses). According to the NAME, this would be a inverse binomial transformation of A137803. - R. J. Mathar, May 22 2019
proposed
editing