[seqfan] Re: A073853: Four more terms

[John W. Layman]

I have confirmed Zak Seidov's extension (12/03/2009) of A073853 by four 
terms and, in addition, I have obtained two additional terms.

        TERM             ELAPSED TIME (HOURS)
a(22)=115854652   0.00171444   (Largest term from 2003 extension)
a(23)=7208007982   0.10886278  (Zak's first new term)
a(24)=17016737751   0.26690111  (Zak's 2nd)
a(25)=17589706947   0.27611528  (Zak's 3rd)
a(26)=24531053552   0.38749556  (Zak's 4th)
a(27)=33113576855   0.52467444  (my first additional)
a(28)=80692537585   1.28246944  (my 2nd additional)
Stopped after 3 hours.

I used the following code in Borland Delphi Pascal:
program Project2; {$APPTYPE CONSOLE} uses SysUtils; var b1,b2,b3,k:comp;
begin  b1:=1; b2:=1; k:=2;  repeat b3:=b1+b2; k:=k+1; if b3>=k then
b3:=b3-k; if b3=0 then write(k:0:0,','); end; b1:=b2; b2:=b3; until 1=2;
end.


zak seidov wrote:
> A073853: Four more terms
>
> http://zak08.livejournal.com/16284.html
>
> Zak
>
>