A168015 - OEIS

%I #11 Jul 06 2016 00:09:34

%S 1,1,4,6,13,12,29,22,46,48,72,67,137,114,177,221,295,314,475,509,727,

%T 855,1068,1278,1743,2008,2514,3091,3858,4594,5814,6873,8509,10242,

%U 12412,14988,18265,21674,26129,31302,37618,44624,53468,63304,75395,89359

%N a(n) = A000041(n) + n*A032741(n).

%H G. C. Greubel, <a href="/A168015/b168015.txt">Table of n, a(n) for n = 0..1000</a>

%t Table[PartitionsP[n] + n*(DivisorSigma[0, n] - 1), {n, 0, 50}] (* _G. C. Greubel_, Jul 05 2016 *)

%o (PARI) a(n) = if (n, numbpart(n) + n*(numdiv(n)-1), numbpart(0)); \\ _Michel Marcus_, Jul 06 2016

%Y Cf. A000005, A032741, A000041, A168014, A168020, A168021.

%K easy,nonn

%O 0,3

%A _Omar E. Pol_, Nov 20 2009

%E a(14)-a(46) from _Vincenzo Librandi_, May 26 2010