MathGroup Archive 2013

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

Search the Archive

Re: Extract Integers

  • To: mathgroup at
  • Subject: [mg131424] Re: Extract Integers
  • From: Nigel King <nigel.king at>
  • Date: Sun, 21 Jul 2013 21:40:36 -0400 (EDT)
  • Delivered-to:
  • Delivered-to:
  • Delivered-to:
  • Delivered-to:
  • References: <>

I am guessing that

Map[{Numerator[#], Denominator[#]} &, Cases[equ, _Rational, Infinity]]
{{1, 2}, {1, 6}, {1, 24}, {1, 120}}

does not suit your purposes


On 21 Jul 2013, at 09:23, Dana DeLouis <dana01 at> wrote:

Hi.  I've run out of ideas.  Does anyone know the proper way to extract all the integers from the following simplified version of a larger problem I'm working on?

equ=Series[Exp[x],{x,0,5}] //Normal


When trying to extract all the integers, I understand numbers like 120 are part of Rational[1,120]

equ //FullForm

<< Not shown here >>

I thought looking at all LevelSpec was the solution, but apparently not.

Cases[equ, _Integer, Infinity]

(* Or *)

Position[equ, _Integer, Infinity]

Extract[equ, %]

Both ways extract from the numerator, but I just can't seem to extract the {2,6,24,120} inside the denominator.
Does anyone know the proper way?
Thanks in advance.  :>~

Mac & Math 9

  • Prev by Date: Re: Extract Integers
  • Next by Date: Re: Extract Integers
  • Previous by thread: Extract Integers
  • Next by thread: Re: Extract Integers