OFFSET
1,4
COMMENTS
LINKS
EXAMPLE
Array begins:
....... 1,1;
....... 1,2;
....... 1,3;
..... 1,2,2,4;
....... 1,5;
..... 1,2,3,6;
....... 1,7;
..... 1,2,4,8;
..... 1,3,3,9;
..... 1,2,5,10;
....... 1,11;
... 1,2,3,4,6,12;
....... 1,13;
..... 1,2,7,14;
..... 1,3,5,15;
... 1,2,4,4,8,16;
MATHEMATICA
dsr[n_]:=If[IntegerQ[Sqrt[n]], Sort[Join[{Sqrt[n]}, Divisors[n]]], Divisors[ n]]; Array[ dsr, 30]//Flatten (* Harvey P. Dale, Sep 27 2020 *)
CROSSREFS
KEYWORD
easy,nonn,tabf
AUTHOR
Omar E. Pol, Jun 23 2009
EXTENSIONS
Keyword tabf added by R. J. Mathar, Jun 28 2009
Definition clarified by Harvey P. Dale, Sep 27 2020
STATUS
approved