login
Numbers that have more than one way of being written as k^2*j, 0 < j <= k.
4

%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