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

MathGroup Archive 2013

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

Search the Archive

Extract Integers

  • To: mathgroup at smc.vnet.net
  • Subject: [mg131416] Extract Integers
  • From: Dana DeLouis <dana01 at icloud.com>
  • Date: Sun, 21 Jul 2013 04:23:57 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-outx@smc.vnet.net
  • Delivered-to: mathgroup-newsendx@smc.vnet.net

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

1+x+x^2/2+x^3/6+x^4/24+x^5/120

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]
{1,2,3,4,5}

(* Or *)

Position[equ, _Integer, Infinity]
{{1},{3,2,2},{4,2,2},{5,2,2},{6,2,2}}

Extract[equ, %]
{1,2,3,4,5}

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.  :>~

Dana
Mac & Math 9




  • Prev by Date: Re: keep special functions unexpanded
  • Next by Date: Re: keep special functions unexpanded
  • Previous by thread: Graduate student new to Mathematica would like to hire a tutor in
  • Next by thread: Re: Extract Integers