|
| |
|
|
A104020
|
|
Numbers n which can be represented as k^2*j, 0 < j =< k.
|
|
5
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| Take[ Union[ Flatten[ Table[ k^2*j, {k, 25}, {j, k - 1}]]], 56]
|
|
|
CROSSREFS
| Cf. A104021, A102354, A104022, A104024, A104026.
Sequence in context: A066926 A066925 A122379 * A066694 A102646 A104021
Adjacent sequences: A104017 A104018 A104019 * A104021 A104022 A104023
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet and Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 24 2005
|
| |
|
|
