OFFSET
1
COMMENTS
The first element of column k is in the row k^2.
FORMULA
EXAMPLE
Triangle begins:
1;
1;
1;
0, 1;
1, 0;
0, 1;
1, 0;
0, 1;
0, 0, 1;
0, 1, 0;
1, 0, 0;
0, 0, 1;
1, 0, 0;
0, 1, 0;
0, 0, 1;
0, 0, 0, 1;
1, 0, 0, 0;
0, 0, 1, 0;
1, 0, 0, 0;
0, 0, 0, 1;
0, 0, 1, 0;
0, 1, 0, 0;
1, 0, 0, 0;
0, 0, 0, 1;
0, 0, 0, 0, 1;
...
MATHEMATICA
Table[ReplacePart[ConstantArray[0, IntegerPart@ Sqrt@ n], SelectFirst[Reverse@ Divisors@ n, # <= Sqrt@ n &] -> 1], {n, 32}] // Flatten (* Michael De Vlieger, Nov 13 2017 *)
PROG
(PARI) row(n) = {d = divisors(n); kmax = vecmax(select(x->(x^2 <= n), d)); vector(sqrtint(n), k, k==kmax); }
tabf(nn) = for (n=1, nn, print(row(n))); \\ Michel Marcus, Dec 12 2017
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Omar E. Pol, Nov 09 2017
STATUS
approved