A knotty problem for Mathematica

*To*: mathgroup at smc.vnet.net*Subject*: [mg77108] A knotty problem for Mathematica*From*: "Jeff Albert" <albertj001 at hawaii.rr.com>*Date*: Mon, 4 Jun 2007 03:44:00 -0400 (EDT)

I need to find a function (or functions) f(n) such that k*d=f((n+1)*k1*d/c)-f(n*k1*d/c) yields integer solutions for k and k1, where n is an integer >=1, where k>=1, k1>=1, k/k1 <=1, where c and d are noninteger constants and where the average value of k*c/k1 (taken over all permitted k up to the highest permitted k <= k1) = df(t)/dt, where t=n*k1*d/c. Is it possible to do this in Mathematica (assuming it is possible to do this at all)? Jeff Albert