OFFSET
1,2
EXAMPLE
May be written as a triangle:
1
2 2
1 1 1
2 2 2 2
1 1 1 1 1
2 2 2 2 2 2
1 1 1 1 1 1 1
Row sums are A022998(n+1).
MATHEMATICA
ReplaceAll[ColumnForm[Table[Mod[k, 2], {k, 12}, {n, k}], Center], 0 -> 2] (* Alonso del Arte, Nov 28 2011 *)
PROG
(Haskell)
a201208 n = a201208_list !! (n-1)
a201208_list = concat $ zipWith ($) (map replicate [1..]) a000034_list
-- Reinhard Zumkeller, Dec 02 2011
CROSSREFS
KEYWORD
AUTHOR
Paul Curtz, Nov 28 2011
EXTENSIONS
Edited by N. J. A. Sloane, Dec 02 2011
STATUS
approved