Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Factorial equations

  • To: mathgroup at smc.vnet.net
  • Subject: [mg87123] Factorial equations
  • From: Artur <grafix at csl.pl>
  • Date: Tue, 1 Apr 2008 05:26:08 -0500 (EST)
  • References: <200804010819.DAA11874@smc.vnet.net>
  • Reply-to: grafix at csl.pl

Who know how is possible with use Mathematica solving  equations 
involving factorials e.g
Solve[n! + n == 726, n]

My difficult problem to solving is
x=n
y=n!

find function f(x,y) such
f[1,1!]==1, f[2,2!]==2, f[3,3!]==5, f[4,4!]=59,f[5,5!]=246, 
f[6,6!]=1103, f[7,7!]=5247
values are generated by procedure
ClearAll[f]; a = {}; Do[k = 0; Do[k = k + f[n] x^n, {n, 0, s}];
 m = Resultant[k, D[k, x], x]; AppendTo[a, Length[m]], {s, 1, 8}]; a

Who can help in find formula or do above procedure much quickest I will 
be greatfull !
Best wishes
ARTUR



  • Prev by Date: Re: Something very simple.....
  • Next by Date: Re: Graphics3D, missing part
  • Previous by thread: Something very simple.....
  • Next by thread: Re: Something very simple.....