[seqfan] Re: A047210: First term and offset(?)

zak seidov zakseidov at yahoo.com
Thu Dec 18 17:36:58 CET 2008


1. this is faster(?):
Table[r = Range[1 + n/2]; Max[Mod[r^2, n]], {n, 100}]
2. Eric thinks that better to start with n=2(?)
thx, zak

--- On Thu, 12/18/08, T. D. Noe <noe at sspectra.com> wrote:

> From: T. D. Noe <noe at sspectra.com>
> Subject: [seqfan] Re: A047210: First term and offset(?)
> To: "Sequence Fanatics Discussion list" <seqfan at list.seqfan.eu>, "seqfaneu" <seqfan at seqfan.eu>
> Date: Thursday, December 18, 2008, 11:21 AM
> At 7:32 AM -0800 12/18/08, zak seidov wrote:
> >Dear seqfans,
> >
> >i'm confused with Eric's description of A047210
> and
> >entries/offset in  A047210...
> >
> >One way out to edit A047210 in accord with Eric is:
> >
> >1. to omit first zero from %S, and
> >2. to change offset to 2
> 
> 
> The offset should be 1. Here is some Mma code:
> 
> Table[r=Range[n]; Max[Mod[r^2, n]], {n, 100}]
> 
> Tony
> 
> 
> _______________________________________________
> 
> Seqfan Mailing list - http://list.seqfan.eu/


      




More information about the SeqFan mailing list