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,1

Links

Table of n, a(n) for n=1..56.

Mathematica

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

Crossrefs

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

Sequence in context: A313321 A313322 A122379 * A066694 A235993 A102646

Adjacent sequences: A104017 A104018 A104019 * A104021 A104022 A104023

Keyword

nonn

Author

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

Status

approved