|
%I #6 Mar 20 2015 18:59:42
%S 1,1,2,6,24,120,720,5040,40320,0,39916800,239500800,2075673600,
%T 21794572800,261534873600,3487131648000,50812489728000,
%U 800296713216000,13516122267648000,0,25545471085854720000,281000181944401920000
%N n! divided by the product of the decimal digits of n.
%C Terms from _Robert G. Wilson v_.
%t a = {}; Do[b = Apply[Times, IntegerDigits[n]]; a = Append[a, If[b != 0, n!/b, 0]], {n, 1, 25}]; a (* _Robert G. Wilson v_ *)
%K base,easy,nonn
%O 0,3
%A _Amarnath Murthy_, Feb 05 2002
|
