|
%I #12 Feb 13 2021 01:11:52
%S 4,9,16,18,25,32,36,48,49,50,64,72,75,81,98,100,108,121,128,144,147,
%T 162,169,180,192,196,200,225,242,243,245,256,288,289,294,300,320,324,
%U 338,361,363,384,392,400,405,432,441,448,450,484,486,500,507,512,529,567
%N Numbers that can be represented as k^2*j, 0 < j <= k.
%t Take[ Union[ Flatten[ Table[ k^2*j, {k, 25}, {j, k - 1}]]], 56]
%Y Cf. A104021, A102354, A104022, A104024, A104026.
%K nonn
%O 1,1
%A _Leroy Quet_ and _Robert G. Wilson v_, Feb 24 2005
|
