Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: Hurwitz Zeta Rational Sequence showing primes in the denominator

  • To: mathgroup at smc.vnet.net
  • Subject: [mg110102] Re: Hurwitz Zeta Rational Sequence showing primes in the denominator
  • From: Peter Breitfeld <phbrf at t-online.de>
  • Date: Tue, 1 Jun 2010 07:46:56 -0400 (EDT)
  • References: <hu2g07$kus$1@smc.vnet.net>

GHMM wrote:

> I've been looking at a zeta function to produce the primes and have
> come up with the following:
>
> Table[D[FindSequenceFunction[Table[Rationalize[ i^m N[Zeta[1 - m, (-i
> - 1)/i] + Zeta[1 - m, -(1/i)], 80]], {i, 80}] , n],{n, m}], {m, 30}]
>
> output :
>
> 2, 5/3, 6, 122/5, 120, 5000/7, 5040, 40656, 362880, 39312000/11,
> 39916800, 6489711360/13, 6227020800, 72648576000, 1307674368000,
> 671011307366400/17, 355687428096000, -(621352061890560000/19),
> 121645100408832000, 131163645205064908800, 51090942171709440000, -
> (14526772739252431257600000/23)...
>
> Can someone please help to fit the numerators of this rational
> sequence into a product, the denominators are the primes.
>
> Ray
>

Suppose your table is tt. Then define:

schoen[{x_,y_}]:=HoldForm[x^y]
zerlege[expr_Integer] := Times @@ schoen /@ FactorInteger[expr]
zerlege[expr_Rational] := zerlege[Numerator[expr]]/Denominator[expr]

and do

zerlege/@tt

It seams, that I needed the HoldForm to prevent Mathematica from
automatically calculate the Numerator into the original number.

//Peter

-- 
_________________________________________________________________
Peter Breitfeld, Bad Saulgau, Germany -- http://www.pBreitfeld.de


  • Prev by Date: Re: Assigning values to a list.
  • Next by Date: Re: Colored wire ContourPlot3d
  • Previous by thread: Hurwitz Zeta Rational Sequence showing primes in the denominator
  • Next by thread: Re: Expanding Integrals with constants and 'unknown' functions