Re: extracting decimal digits of Pi

*To*: mathgroup at smc.vnet.net*Subject*: [mg55847] Re: [mg55841] extracting decimal digits of Pi*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Thu, 7 Apr 2005 07:15:06 -0400 (EDT)*Reply-to*: hanlonr at cox.net*Sender*: owner-wri-mathgroup at wolfram.com

n=500000; dat=Drop[RealDigits[N[Pi,n]][[1]],1]; Short[dat] {1,4,1,5,9,2,6,5,3,5,8,9,\[LeftSkeleton]499975\[RightSkeleton],6,0,2,5,1,3,8,\ 1,9,5,2,4} Bob Hanlon > > From: zak <chocolatez at gmail.com> To: mathgroup at smc.vnet.net > Date: 2005/04/07 Thu AM 05:11:03 EDT > To: mathgroup at smc.vnet.net > Subject: [mg55847] [mg55841] extracting decimal digits of Pi > > hi > in my previous letter i mentioned extracting the first 100000 decimal > digits of Pi, and to put it in a List. > the following code is my version,: > dat = IntegerDigits[ToExpression[StringDrop[ToString[N[Pi, 500000]], 2]]]; > > i think it is consuming the memory of the computer. > i hope there is another version. > > regards > zak > >