OFFSET
1,1
LINKS
G. C. Greubel, Rows n = 1..30 of the triangle, flattened
FORMULA
T(n, k) = 0 if n==0 (mod k) otherwise 1 with T(n, n) = 1 and T(n, 1) = 0. - G. C. Greubel, Mar 07 2021
EXAMPLE
Table begins:
1;
0, 1;
0, 1, 1;
0, 0, 1, 1;
0, 1, 1, 1, 1;
0, 0, 0, 1, 1, 1;
0, 1, 1, 1, 1, 1, 1;
0, 0, 1, 0, 1, 1, 1, 1;
0, 1, 0, 1, 1, 1, 1, 1, 1;
MATHEMATICA
Table[If[k==n, 1, If[k==0, 0, If[Mod[n, k]==0, 0, 1]]], {n, 20}, {k, n}]//Flatten (* G. C. Greubel, Mar 07 2021 *)
PROG
(Sage) flatten([[1 if k==n else 0 if (k==0 or n%k==0) else 1 for k in [1..n]] for n in [1..20]]) # G. C. Greubel, Mar 07 2021
(Magma) [k eq n select 1 else (k eq 0 or n mod k eq 0) select 0 else 1: k in [1..n], n in [1..20]]; // G. C. Greubel, Mar 07 2021
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Mats Granvik, Jan 19 2009
STATUS
approved