[seqfan] Re: Error in A047699

zak seidov zakseidov at yahoo.com
Wed Jul 14 07:10:09 CEST 2010


I confirm all AW's numbers.

Also A047705 and A047706
should be changed:

A047705=
3,6,7,12,15,22,23,24,26,31,32,35,36,38,41,42,51,52,53,55,59,64,68,75,77,78,80,82,86,87,91,92,94,97,100,
101,102,107,111,116,119,120,125,127,128,131,137,144,
146,147,151,154,159,161,163,164,165,175,176,177,181,
188,189,190,194,195,196,200,204,210,215,216,217,221,
223,225,232,234,242,249,250,251,257,258,261,262,265,
271,276,279,280,285,287,288,289,292,296,297,300,304

A047706=
3,1,5,3,7,1,1,2,5,1,3,1,2,3,1,9,1,1,2,4,5,4,7,2,1,2,2,4,1,4,1,2,3,3,1,1,5,4,5,3,1,5,2,1,3,6,7,2,1,4,3,5,2,2,1,1,
10,1,1,4,7,1,1,4,1,1,4,4,6,5,1,1,4,2,2,7,2,8,7,1,1,
6,1,3,1,3,6,5,3,1,5,2,1,1,3,4,1,3,4

Here' my Mmca code for three sequnces:

A047699={1};X=Range[3,10^4];a=1;
Do[b=a+(d=X[[1]]);X=Complement[X,A047699+b,b-A047699,{2b,b}];AppendTo[A047699,b];a=b,{100}];A047699

rm=Rest[A047699]-Most[A047699]; A047705=rm

rm2=Rest[rm]-Most[rm]; A047706=rm2

Zak

--- On Tue, 7/13/10, Andrew Weimholt <andrew.weimholt at gmail.com> wrote:
<...........>
> Andrew
> 



      




More information about the SeqFan mailing list