OFFSET
1,2
COMMENTS
LINKS
MATHEMATICA
squarefrees[s_List] := Block[{a = Subsets[s]}, SortBy[Table[
Product[a[[n, m]], {m, 1, Length[a[[n]]]}], {n, 1, Length[a]}], Abs[#] &]]
A087005 = squarefrees[Prime[Range[5]]](* Fred Daniel Kline, Jan 25 2015 *)
Divisors[2310] (* Harvey P. Dale, Jun 27 2020 *)
PROG
(PARI) divisors(2310) \\ Charles R Greathouse IV, Jun 21 2017
CROSSREFS
KEYWORD
nonn,fini,full,easy
AUTHOR
Reinhard Zumkeller, Jul 29 2003
STATUS
approved