[seqfan] Fw: Re: COMMENT FROM submitA Zak Seidov A077220: CORRECTION!!

[zak seidov]

ALCON

Just submitted A077220 + CORRECTION.

REMINDER: NEVER submit anything in a hurry :(

zak

--- On Mon, 7/12/10, zak seidov <zakseidov at yahoo.com> wrote:

> From: zak seidov <zakseidov at yahoo.com>
> Subject: Re: COMMENT FROM submitA Zak Seidov A077220: CORRECTION!!
> To: njas at research.att.com
> Date: Monday, July 12, 2010, 5:34 AM
> I'm sorry, Neil:
> correct %t is as below
> (I missed calculation of table of triangular numbers:
>  tr=Table[n(n+1)/2,{n,100}])
> 
> Thanks, Zak
> 
> Correct %t: 
> 
>  %t A077220 Contribution from Zak Seidov
>  (zakseidov(AT)yahoo.com), Jul 12 2010: (Start)
>  %t A077220
> 
> tr=Table[n(n+1)/2,{n,100}];s={1};a=1;Do[Do[tk=tr[[k]];If[tk>a,b=tk-a;If[FreeQ[s,b],AppendTo[s,b];
>  %t A077220 a=b;Break[]]],{k,100}],{99}];s (End)
> 
> 
> --- On Mon, 7/12/10, oeis at oeis.org <oeis at oeis.org>
> wrote:
> 
> > From: oeis at oeis.org <oeis at oeis.org>
> > Subject: COMMENT FROM submitA Zak Seidov A077220
> > To: njas at research.att.com
> > Cc: zakseidov at yahoo.com
> > Date: Monday, July 12, 2010, 5:47 AM
> > The following is a copy of the email
> > message that was sent to njas
> > containing the comment you submitted.
> > 
> > All greater than and less than signs have been
> replaced by
> > their html
> > equivalents.  They will be changed back when the
> > message is processed.
> > 
> > This copy is just for your records.  No reply is
> > expected.
> >  
> > %S A077220
> >
> 1,2,4,6,9,12,3,7,8,13,15,21,24,31,5,10,11,17,19,26,29,16,20,25,30,36,
> > %T A077220
> >
> 42,49,56,22,14,41,37,18,27,28,38,40,51,54,66,39,52,53,67,69,84,87,33,
> > %U A077220
> >
> 45,46,32,23,43,35,70,50,55,65,71,34,44,47,58,62,74,79,57,48,72,64,89
> > %E A077220 More terms from Zak Seidov
> > (zakseidov(AT)yahoo.com), Jul 12 2010
> > %t A077220 Contribution from Zak Seidov
> > (zakseidov(AT)yahoo.com), Jul 12 2010: (Start)
> > %t A077220
> >
> s={1};a=1;Do[Do[tk=tr[[k]];If[tk>a,b=tk-a;If[FreeQ[s,b],AppendTo[s,b];
> > %t A077220 a=b;Break[]]],{k,100}],{99}];s (End)
> > 
> > 
> 
> 
> 
>