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,1

Links

Table of n, a(n) for n=1..45.

Mathematica

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

Crossrefs

Cf. A104023, A102354, A104020, A104024.

Sequence in context: A175163 A111730 A255990 * A061099 A118488 A088033

Adjacent sequences: A104019 A104020 A104021 * A104023 A104024 A104025

Keyword

nonn

Author

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

Status

approved