%I #13 Feb 13 2021 01:11:46
%S 64,100,144,196,256,324,400,484,512,576,648,676,729,784,800,900,968,
%T 1024,1089,1152,1156,1296,1352,1444,1521,1568,1600,1728,1764,1800,
%U 1936,2025,2028,2048,2116,2304,2312,2352,2500,2592,2601,2700,2704,2888,2916
%N Numbers that have more than one way of being written as k^2*j, 0 < j <= k.
%t t = Sort[ Flatten[ Table[k^2*j, {k, 55}, {j, k}]]]; u = Table[ Count[t, n], {n, 3000}]; Select[ Range[3000], u[[ # ]] > 1 &]
%Y Cf. A104023, A102354, A104020, A104024.
%K nonn
%O 1,1
%A _Leroy Quet_ and _Robert G. Wilson v_, Feb 23 2005