[seqfan] Re: Correction to A093848 Variation on Golomb's sequence

[Richard Mathar]

On behalf of
http://list.seqfan.eu/pipermail/seqfan/2010-June/005114.html
a correction has been submitted:


> Date: Tue, 22 Jun 2010 06:44:42 -0400
> From: oeis at oeis.org
> Subject: COMMENT FROM submitA R. J. Mathar A093848
> 
> 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 A093848 1,2,4,5,7,9,11,12,14,16,18,20,21,23,25,27,29,31,33,34,36,38,40,42,44,
> %T A093848 46,48,50,51,53,55,57,59,61,63,65,67,69,71,72,74,76,78,80,82,84,86,88,
> %U A093848 90,92,94,95,97,99,101,103,105,107,109,111,113,115,117,119,121,122,124
> %E A093848 Terms starting at a(52) corrected by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 22 2010
> %p A093848 A093848 := proc(nmax) local n,par,a,alast,j ; n := 3 ; par := 1 ; a := [1,2,4] ; while nops(a) < nmax do alast := op(-1,a); if type(alast,'even') = type(par,'even') then ; else alast := alast -1 ; end if; for j from 1 to op(n,a) do a := [op(a), alast+2*j] ; end do: par := 1-par ; n := n+1 ; end do: a ; end proc: A093848(120) ; [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 22 2010]
>