Re: Extract Integers

• To: mathgroup at smc.vnet.net
• Subject: [mg131426] Re: Extract Integers
• From: Ulrich Arndt <ulrich.arndt at data2knowledge.de>
• Date: Sun, 21 Jul 2013 21:41:16 -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
• References: <20130721082357.762536A19@smc.vnet.net>

```not sure if this falls under propper way but maybe working for you

ToExpression[StringCases[ToString[equ], (x : DigitCharacter ..) -> x]]

But would also have expected that Cases should be able to handle this directly

Ulrich

Am 21.07.2013 um 10:23 schrieb Dana DeLouis:

> 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?
>
> Dana
> Mac & Math 9
>
>

--
Ulrich Arndt
Mobile: +49 172 287 6630
ulrich.arndt at data2knowledge.de
www.data2knowledge.de

data2knowledge GmbH
Fahrenheitstr. 1
D-28359 Bremen

Gesch=E4ftsf=FChrung: Ulrich Arndt
Sitz der Gesellschaft: Bremen, Amtsgericht Bremen, HRB 26480 HB

```

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