cp's OEIS Frontend

A168111 Sum of the partition numbers of the proper divisors of n, with a(1) = 0.

%I A168111 #28 Oct 08 2024 22:19:09
%S A168111 0,1,1,3,1,6,1,8,4,10,1,22,1,18,11,30,1,47,1,57,19,59,1,121,8,104,34,
%T A168111 158,1,242,1,261,60,300,23,514,1,493,105,706,1,959,1,1066,217,1258,1,
%U A168111 1927,16,2010,301,2545,1,3442,64,3898,494,4568,1,6555,1,6845,841,8610
%N A168111 Sum of the partition numbers of the proper divisors of n, with a(1) = 0.
%C A168111 Row sums of triangle A168021 except the first column.
%C A168111 Row sums of triangle A168016 except the last column.
%H A168111 Antti Karttunen, <a href="/A168111/b168111.txt">Table of n, a(n) for n = 1..10000</a>
%F A168111 a(n) = A047968(n) - A000041(n).
%F A168111 G.f.: Sum_{n > 0} A000041(n)*x^(2*n)/(1-x^n). - _Mircea Merca_, Feb 24 2014
%F A168111 G.f.: x^2 + x^3 + 3*x^4 + x^5 + 6*x^6 + x^7 + 8*x^8 + 4*x^9 + 10*x^10 + x^11 + ... - _Michael Somos_, Feb 24 2014
%p A168111 A047968 := proc(n) add(combinat[numbpart](d), d= numtheory[divisors](n) ) ; end proc: A000041 := proc(n) combinat[numbpart](n) ; end proc: A168111 := proc(n) A047968(n)-A000041(n) ; end proc: seq(A168111(n),n=1..90) ; # _R. J. Mathar_, Jan 25 2010
%t A168111 a[ n_] := If[n < 1, 0, Sum[ PartitionsP[ d] Boole[ d < n], {d, Divisors @ n}]]; (* _Michael Somos_, Feb 24 2014 *)
%o A168111 (PARI) A168111(n) = sumdiv(n,d,(d<n)*numbpart(d)); \\ _Antti Karttunen_, Nov 14 2017
%Y A168111 Cf. A000041, A001065, A047968, A168016, A168017, A168018, A168020, A168021.
%K A168111 nonn,easy
%O A168111 1,4
%A A168111 _Omar E. Pol_, Nov 22 2009
%E A168111 Terms beyond a(12) from _R. J. Mathar_, Jan 25 2010
%E A168111 New name from _Omar E. Pol_, Feb 25 2014