|
| |
|
|
A104022
|
|
Number n which have more than one way of being written as k^2*j, 0 < j <= k.
|
|
4
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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: A036330 A046306 A175163 * A061099 A118488 A088033
Adjacent sequences: A104019 A104020 A104021 * A104023 A104024 A104025
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet and Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 23 2005
|
| |
|
|
