login
A205216
Number of partitions of n into parts having no 2 in ternary representation.
2
1, 1, 1, 2, 3, 3, 4, 5, 6, 8, 10, 11, 15, 19, 21, 25, 31, 35, 41, 48, 55, 64, 75, 84, 97, 112, 126, 143, 164, 183, 208, 236, 263, 295, 333, 369, 414, 464, 513, 573, 644, 709, 786, 877, 967, 1066, 1182, 1298, 1432, 1584, 1736, 1905, 2104, 2302, 2518, 2764
OFFSET
0,4
EXAMPLE
a(10) = #{10, 9+1, 4+4+1+1, 4+3+3, 4+3+1+1+1, 4+6x1, 3+3+3+1, 3+3+1+1+1+1, 3+7x1, 10+1} = 10;
a(11) = #{10+1, 9+1+1, 4+4+3, 4+4+1+1+1, 4+3+3+1, 4+3+1+1+1+1, 4+7x1, 3+3+3+1+1, 3+3+5x1, 3+8x1, 11x1} = 11;
a(12) = #{12, 10+1+1, 9+3, 9+1+1+1, 4+4+4, 4+4+3+1, 4+4+1+1+1+1, 4+3+3+1+1, 4+3+5x1, 4+8x1, 3+3+3+3, 3+3+3+1+1+1, 3+3+6x1, 3+9x1, 12x1} = 15.
PROG
(Haskell)
a205216 = p $ tail a005836_list where
p _ 0 = 1
p ks'@(k:ks) m = if m < k then 0 else p ks' (m - k) + p ks m
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Jan 25 2012
STATUS
approved