OFFSET
0,6
COMMENTS
Variant of A166918.
LINKS
G. C. Greubel, Rows n = 0..100 of the triangle, flattened
FORMULA
EXAMPLE
Triangle begins as:
1;
0, 1;
1, 1, 2;
0, 1, 2, 4;
1, 1, 2, 4, 8;
0, 1, 2, 4, 8, 16;
MATHEMATICA
Join[{1, 0}, Flatten[Riffle[Table[2^Range[0, n], {n, 0, 10}], {1, 0}]]] (* Harvey P. Dale, Jan 18 2015 *)
PROG
(Magma)
A166692:= func< n, k | k eq 0 select ((n+1) mod 2) else 2^(k-1) >;
[A166692(n, k): k in [0..n], n in [0..15]]; // G. C. Greubel, Apr 24 2023
(SageMath)
def A166692(n, k): return ((n+1)%2) if (k==0) else 2^(k-1)
flatten([[A166692(n, k) for k in range(n+1)] for n in range(16)]) # G. C. Greubel, Apr 24 2023
CROSSREFS
KEYWORD
AUTHOR
Paul Curtz, Oct 18 2009
EXTENSIONS
More terms from Harvey P. Dale, Jan 18 2015
STATUS
approved