

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;
text;
internal format)



OFFSET

0,1


LINKS



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



KEYWORD

nonn


AUTHOR



STATUS

approved



