login
Number of partitions of n into distinct decimal repdigit numbers.
7

%I #22 Sep 17 2018 18:04:40

%S 1,1,1,2,2,3,4,5,6,8,9,11,13,14,17,19,21,23,26,27,30,32,34,36,37,39,

%T 40,42,42,44,44,45,45,47,47,47,49,48,50,50,52,52,55,55,58,60,60,64,65,

%U 68,69,73,73,77,78,82,84,84,88,88,92,92,96,96,100,100,105,107,107,113

%N Number of partitions of n into distinct decimal repdigit numbers.

%C a(n) <= A000009(n).

%C Not the same as A091581: a(n) < A091581(n) for n > 101.

%C A109967(n) = a(n+1) - a(n). - _Reinhard Zumkeller_, Jul 06 2005

%H Alois P. Heinz, <a href="/A088670/b088670.txt">Table of n, a(n) for n = 0..20000</a> (first 1001 terms from Reinhard Zumkeller)

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

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

%o (Haskell)

%o a088670 = p $ tail a010785_list where

%o p _ 0 = 1

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

%o -- _Reinhard Zumkeller_, Dec 10 2011

%Y Cf. A010785, A088669, A109968, A131364.

%K nonn,base

%O 0,4

%A _Reinhard Zumkeller_, Oct 03 2003

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