A104020 Numbers that can be represented as k^2*j, 0 < j <= k.

4, 9, 16, 18, 25, 32, 36, 48, 49, 50, 64, 72, 75, 81, 98, 100, 108, 121, 128, 144, 147, 162, 169, 180, 192, 196, 200, 225, 242, 243, 245, 256, 288, 289, 294, 300, 320, 324, 338, 361, 363, 384, 392, 400, 405, 432, 441, 448, 450, 484, 486, 500, 507, 512, 529, 567

Offset: 1

Author

Leroy Quet and Robert G. Wilson v, Feb 24 2005

Keywords

• nonn

Crossrefs

Cf. A104021, A102354, A104022, A104024, A104026.

Programs

Mathematica

Take[ Union[ Flatten[ Table[ k^2*j, {k, 25}, {j, k - 1}]]], 56]