A109441 Sorted union of the numbers (k + 1)^2 - 1, (2*k + 1)*(2*k + 1 - 1)/2, (2*k)^2, (2*k)*(2*k - 1)/2 for k >= 0, with duplicates removed.

0, 1, 3, 4, 6, 8, 10, 15, 16, 21, 24, 28, 35, 36, 45, 48, 55, 63, 64, 66, 78, 80, 91, 99, 100, 105, 120, 136, 143, 144, 153, 168, 171, 190, 195, 196, 210, 224, 231, 253, 255, 256, 276, 300, 324, 325, 351, 378, 400, 406, 435, 465, 484, 576, 676, 784, 900

Offset: 1

Author

Roger L. Bagula, Jun 22 2007

Keywords

• nonn
• less

Programs

Mathematica

Union[Flatten[Table[{(n + 1)^2 - 1, (2*n + 1)*(2*n + 1 - 1)/2, (2*n)^2, (2*n)*(2*n - 1)/2}, {n, 0, 15}]]]

Extensions

Edited by Georg Fischer, Aug 14 2023