A155029 Complement to A051731 with the identity matrix A023531 included.

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, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

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

Cf. A023531, A051731, A155031.

Sequence in context: A117446 A187034 A101688 * A155031 A134540 A318962

Adjacent sequences: A155026 A155027 A155028 * A155030 A155031 A155032

Keyword

nonn,tabl

Author

Mats Granvik, Jan 19 2009

Status

approved