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

64, 100, 144, 196, 256, 324, 400, 484, 512, 576, 648, 676, 729, 784, 800, 900, 968, 1024, 1089, 1152, 1156, 1296, 1352, 1444, 1521, 1568, 1600, 1728, 1764, 1800, 1936, 2025, 2028, 2048, 2116, 2304, 2312, 2352, 2500, 2592, 2601, 2700, 2704, 2888, 2916

Offset: 1

Author

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

Keywords

• nonn

Crossrefs

Cf. A104023, A102354, A104020, A104024.

Programs

Mathematica

t = Sort[ Flatten[ Table[k^2*j, {k, 55}, {j, k}]]]; u = Table[ Count[t, n], {n, 3000}]; Select[ Range[3000], u[[ # ]] > 1 &]