login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A249309 First row of spectral array W(Pi/2). 1
1, 2, 3, 5, 7, 13, 20, 35, 54, 96, 150, 264, 414, 726, 1140, 1997, 3136, 5495, 8631, 15121, 23752, 41612, 65363, 114513, 179876, 315132, 495008, 867223, 1362230, 2386544, 3748774, 6567622, 10316396 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..33.

A. Fraenkel and C. Kimberling, Generalized Wythoff arrays, shuffles and interspersions, Discrete Mathematics 126 (1994) 137-149.

PROG

(PARI)

\\ The first row of the generalized Wythoff array W(h),

\\   where h is an irrational number between 1 and 2.

row1(h, m) = {

  my(

    a=vector(m, n, floor(n*h)),

    b=setminus(vector(m, n, n), a),

    w=[a[1]^2, b[a[1]]],

    j=3

  );

  while(1,

    if(j%2==1,

      if(w[j-1]<=#a, w=concat(w, a[w[j-1]]), return(w))

    ,

      if(w[j-2]<=#b, w=concat(w, b[w[j-2]]), return(w))

    );

    j++

  );

  w

}

allocatemem(10^9)

row1(Pi/2, 10^7)

CROSSREFS

Cf. A007068, A022159, A022161, A022163, A022165.

Sequence in context: A178570 A294443 A293160 * A250253 A119717 A000627

Adjacent sequences:  A249306 A249307 A249308 * A249310 A249311 A249312

KEYWORD

nonn

AUTHOR

Colin Barker, Oct 25 2014

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 14:53 EDT 2020. Contains 333089 sequences. (Running on oeis4.)