|
%I #3 Mar 30 2012 17:34:20
%S 0,0,1,5,20,116,696,5016,40128,361152,3611520,39899520,478794240,
%T 6226813440,87175388160,1307630822400,20922093158400,355686731366400,
%U 6402361164595200,121645087867699200,2432901757353984000
%N factorial(n) - A049614(n).
%F a(n) =n!- A049614(n) = A000142(n)-A049614(n).
%t f[n_] := If[PrimeQ[n] == True, 1, n] cf[0] = 1; cf[n_Integer?Positive] := cf[n] = f[n]*cf[n - 1] g[n_] := If[PrimeQ[n] == True, n, 1] p[0] = 1; p[n_Integer?Positive] := p[n] = g[n]*p[n - 1] Table[n! - cf[n], {n, 0, 20}]
%Y Cf. A034386, A117683.
%K nonn
%O 0,4
%A _Roger L. Bagula_, Apr 14 2006
%E Edited by the Assoc. Eds. of the OEIS, Jun 27 2010
|
