A131361 Number of partitions of n into repdigits of digits of n.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 8, 6, 5, 5, 4, 4, 4, 4, 1, 17, 2, 4, 8, 3, 6, 2, 5, 2, 1, 22, 8, 2, 3, 3, 8, 2, 2, 6, 1, 27, 17, 5, 2, 3, 4, 2, 8, 2, 1, 32, 11, 6, 4, 2, 2, 2, 2, 2, 1, 37, 22, 17, 8, 4, 2, 2, 3, 4, 1, 42, 14, 7, 4, 4, 2, 2, 2, 2, 1, 47, 27, 7, 17, 4, 5, 2, 2, 2, 1, 52, 16, 22, 4, 4, 8, 2

Offset

0,12

Comments

See A131362 and A131363 for record values and where they occur.

Links

Alois P. Heinz, Table of n, a(n) for n = 0..10000 (first 501 terms from Reinhard Zumkeller)

Eric Weisstein's World of Mathematics, Repdigit

Example

a(10) = #{1+1+1+1+1+1+1+1+1+1} = 1;
a(11) = #{11, 1+1+1+1+1+1+1+1+1+1+1} = 2;
a(12) = #{11+1, 2+2+2+2+2+2, 2+2+2+2+2+1+1, 2+2+2+2+1+1+1+1, 2+2+2+1+1+1+1+1+1, 2+2+1+1+1+1+1+1+1+1, 2+1+1+1+1+1+1+1+1+1+1, 1+1+1+1+1+1+1+1+1+1+1+1} = 8;
a(13) = #{11+1+1, 3+3+3+3+1, 3+3+3+1+1+1+1, 3+3+1+1+1+1+1+1+1, 3+1+1+1+1+1+1+1+1+1+1, 1+1+1+1+1+1+1+1+1+1+1+1+1} = 6;
a(14) = #{11+1+1+1, 4+4+4+1+1, 4+4+1+1+1+1+1+1, 4+1+1+1+1+1+1+1+1+1+1, 1+1+1+1+1+1+1+1+1+1+1+1+1+1} = 5;
a(15) = #{11+1+1+1+1, 5+5+5, 5+5+1+1+1+1+1, 5+1+1+1+1+1+1+1+1+1+1, 1+1+1+1+1+1+1+1+1+1+1+1+1+1+1} = 5;
a(16) = #{11+1+1+1+1+1, 6+6+1+1+1+1, 6+1+1+1+1+1+1+1+1+1+1, 1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1} = 4;
a(17) = #{11+1+1+1+1+1+1, 7+7+1+1+1, 7+1+1+1+1+1+1+1+1+1+1, 1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1} = 4;
a(18) = #{11+1+1+1+1+1+1+1, 8+8+1+1, 8+1+1+1+1+1+1+1+1+1+1, 1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1} = 4;
a(19) = #{11+1+1+1+1+1+1+1+1, 9+9+1, 9+1+1+1+1+1+1+1+1+1+1, 1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1} = 4.

Prog

(Haskell)
a131361 n = p [r | r <- tail a010785_list, head (show r) `elem` show n] n
   where p _          0 = 1
         p ks'@(k:ks) m = if m < k then 0 else p ks' (m - k) + p ks m
-- Reinhard Zumkeller, Dec 10 2011

Crossrefs

Cf. A000929 (binary analog), A131362, A131363, A131364, A088669.

Sequence in context: A206099 A021353 A377997 * A228042 A239386 A011370

Adjacent sequences: A131358 A131359 A131360 * A131362 A131363 A131364

Keyword

nonn,base,look

Author

Reinhard Zumkeller, Jul 03 2007

Extensions

a(0)=1 added and offset adjusted by Reinhard Zumkeller, Dec 10 2011

Status

approved