A131361 - OEIS

%I #24 Nov 03 2023 11:58:20

%S 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,

%T 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,

%U 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

%N Number of partitions of n into repdigits of digits of n.

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

%H Alois P. Heinz, <a href="/A131361/b131361.txt">Table of n, a(n) for n = 0..10000</a> (first 501 terms from Reinhard Zumkeller)

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Repdigit.html">Repdigit</a>

%e a(10) = #{1+1+1+1+1+1+1+1+1+1} = 1;

%e a(11) = #{11, 1+1+1+1+1+1+1+1+1+1+1} = 2;

%e 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;

%e 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;

%e 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;

%e 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;

%e 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;

%e 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;

%e 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;

%e 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.

%o (Haskell)

%o a131361 n = p [r | r <- tail a010785_list, head (show r) `elem` show n] n

%o    where p _          0 = 1

%o          p ks'@(k:ks) m = if m < k then 0 else p ks' (m - k) + p ks m

%o -- _Reinhard Zumkeller_, Dec 10 2011

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

%K nonn,base,look

%O 0,12

%A _Reinhard Zumkeller_, Jul 03 2007

%E a(0)=1 added and offset adjusted by _Reinhard Zumkeller_, Dec 10 2011