%I #8 Jun 21 2016 19:13:17
%S 0,0,1,1,1,1,1,8,13,31,41,92,18,1,162,368,131,324,167,483,299,1788,
%T 841,256,1905,1179,3680,2607,2769,1383,7484,4065,4664,10101,8627,8030,
%U 1,5135,10538,55107,42077,25514,31443,90990,33270,46823,89849,106449,70151
%N Arithmetic derivative of n-th partition number.
%C a(n) = A003415(A000041(n)); a(A049575(n)) = 1.
%H Alois P. Heinz, <a href="/A096371/b096371.txt">Table of n, a(n) for n = 0..3000</a>
%p a:= n->(p->p*add(i[2]/i[1], i=ifactors(p)[2]))(combinat[numbpart](n)):
%p seq(a(n), n=0..100); # _Alois P. Heinz_, Jun 04 2015
%K nonn
%O 0,8
%A _Reinhard Zumkeller_, Jul 19 2004
|