[seqfan] Re: definition of A002848 (from Artur)

Olivier Gerard olivier.gerard at gmail.com
Wed Feb 10 06:02:17 CET 2010


From: Artur <grafix at csl.pl>
Date: Tue, 09 Feb 2010 23:18:13 +0100
Subject: Re: [seqfan] Re: definition of A002848

Following this idea I wrote this procedure

aa = {}; Do[i = 0; Do[Do[Do[If[x + y == z, i = i + 1], {x, 1, 3 n}], {y, 1,
3 n}], {z,
 1, 3 n}]; AppendTo[aa, i], {n, 1, 10}]; aa

which generates

http://www.research.att.com/~njas/sequences/A062741<http://www.research.att.com/%7Enjas/sequences/A062741>


also


Nowakowski's variant to 4n
produced
http://www.research.att.com/~njas/sequences/A014635<http://www.research.att.com/%7Enjas/sequences/A014635>
To 4n+1 produce
http://www.research.att.com/~njas/sequences/A033585<http://www.research.att.com/%7Enjas/sequences/A033585>

All sequences are decreasing


Best wishes
Artur



More information about the SeqFan mailing list