|
| |
|
|
A104024
|
|
Least number k which can be written as k^2 * j, 0 < j <= k in n ways.
|
|
3
| |
|
|
2, 1, 64, 900, 5184, 32400, 57600, 176400, 705600, 1166400, 3240000, 6350400, 14288400, 37454400, 25401600, 87609600
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
MATHEMATICA
| t = Sort[ Flatten[ Table[n = k^2*j; If[n < 10^7, n, {}], {k, 10000}, {j, k}]]]; l = Length[t]; t[[Select[ Range[l - 11], t[[ # ]] == t[[ # + 11]] &]]]
|
|
|
CROSSREFS
| Cf. A102354, A104020, A104022.
Sequence in context: A109347 A054210 A092650 * A096681 A067276 A118580
Adjacent sequences: A104021 A104022 A104023 * A104025 A104026 A104027
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet and Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 23 2005
|
| |
|
|
