Commas

[zak seidov]

Edwin,
 
This dirty code

a=49703;c=1001;Do[ida=a+10Mod[a,10];Do[b=ida+i;If[i==IntegerDigits[b][[1]],a=b;c++;Break[],If[i9,Print[a];Goto[en]]],{i,0,9}],{10000000}];Label[en];Print[{c,a,b,"end!"}]
99999945
{2137453,99999945,100000004,end!}

confirms your great result!

I didn't save sequence but may be it's also possible -
in case Eric needs it

I copy this to Eric and seqfans,
Zak


--- Edwin Clark <eclark at math.usf.edu> wrote:

> 
> Zak, 
> 
> If I didn't make a mistake in my Maple program  
> the last term in Eric's sequence --call it a(n) is
> a(2137453)=99999945. Since you computed some of the
> terms perhaps you can confirm this?
> 
> Best wishes,
> Edwin
> 
> 



 
____________________________________________________________________________________
Any questions? Get answers on any topic at www.Answers.yahoo.com.  Try it now.