|
%I
%S 0,0,1,1,12,8,112,71,1472,1269,17408,14904,270336,204147,4199424,
%T 4143285,87834624,72462870,1797783552,1411253955,40414740480,
%U 36183623805,937430876160,845972658090,26095323709440,24311657884500
%N Arithmetic derivative of the double factorial of n.
%F a(n) = A003415(A006882(n)) . [R. J. Mathar, Nov 26 2009]
%p A003415 := proc(n) local pfs ; if n <= 1 then 0 ; else pfs := ifactors(n)[2] ; n*add(op(2,p)/op(1,p),p=pfs) ; fi; end proc:
%p A168386 := proc(n) A003415(doublefactorial(n)) ; end proc:
%p seq(A168386(n),n=1..80) ; # _R. J. Mathar_, Nov 26 2009
%Y Cf. A003415, A068311
%K easy,nonn
%O 0,5
%A _Paolo P. Lava_ and _Giorgio Balzarotti_, Nov 24 2009
%E Program replaced by a structured program - _R. J. Mathar_, Nov 26 2009
|
