|
|
A294821
|
|
Irregular triangle read by rows: T(n,k) = 1 if k is the largest divisor of n <= sqrt(n), otherwise T(n,k) = 0. With n >= 1, and 1 <= k <= A000196(n).
|
|
1
|
|
|
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, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1
|
|
COMMENTS
|
The first element of column k is in the row k^2.
|
|
LINKS
|
|
|
FORMULA
|
T(n,k) = 0 if k is not equal to A033676(n), n >= 1, and 1 <= k <= A000196(n).
|
|
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
|
Sequences related to columns 1..12: A008578, A161344, A161345, A161424, A161835, A162527, A162527, A162528, A162529, A162530, A162531, A162532.
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|