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