RE : Commas

[Eric Angelini]

Great, great work from both of you, Zak and Edwin -- the
sequence is finite and I'm the most happy man in Brussels,
tonight ! I will send this stuff to Neil in January --and update
my page at the end of the year...
Best,
E.

 
________________________________

De: zak seidov [mailto:zakseidov at yahoo.com]
Date: lun. 11/12/2006 20:30
À: Edwin Clark; seqfan at ext.jussieu.fr; Eric Angelini
Objet : RE: Commas



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.




-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://list.seqfan.eu/pipermail/seqfan/attachments/20061211/3e1a6e22/attachment-0001.htm>