OFFSET
0,2
EXAMPLE
Triangle begins:
1
2
1 1
2 2
1 2 1
1 0 1 2
2 1 0 1
1 1 2 0 2
1 0 0 1 1 1
2 0 0 2 2 2
1 1 0 1 2 2 1
2 2 1 0 2 1 2
1 2 1 2 1 2 0 1
1 0 2 0 2 0 1 0 2
2 1 1 1 1 0 2 1 1
1 1 2 2 2 2 1 1 2 2
MATHEMATICA
(* Replace Flatten with Grid to display the triangle: *)
Flatten[Table[IntegerDigits[2^n, 3], {n, 0, 15}]]
PROG
(PARI) for(n=0, 15, for(k=1, #digits(2^n, 3), print1(digits(2^n, 3)[k], ", "))) \\ Derek Orr, Dec 24 2015
CROSSREFS
KEYWORD
nonn,tabf,base
AUTHOR
L. Edson Jeffery, Dec 04 2015
STATUS
approved