A135542 Guy Steele's sequence GS(6,4) (see A135416).

1, 3, 2, 7, 4, 5, 3, 15, 8, 9, 5, 11, 6, 7, 4, 31, 16, 17, 9, 19, 10, 11, 6, 23, 12, 13, 7, 15, 8, 9, 5, 63, 32, 33, 17, 35, 18, 19, 10, 39, 20, 21, 11, 23, 12, 13, 7, 47, 24, 25, 13, 27, 14, 15, 8, 31, 16, 17, 9, 19, 10, 11, 6, 127, 64, 65, 33, 67, 34, 35, 18, 71, 36, 37, 19, 39, 20, 21

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Formula

a(n) = A135533(3*2^A000523(n) - 1 - n). - Don Knuth, Mar 01 2008

Maple

GS(6, 4, 200); [see A135416].

Mathematica

i = 6; j = 4; Clear[a]; a[1] = 1; a[n_?EvenQ] := a[n] = {0, 1, a[n/2], a[n/2]+1, 2*a[n/2], 2*a[n/2]+1}[[i]]; a[n_?OddQ] := a[n] = {0, 1, a[(n-1)/2], a[(n-1)/2]+1, 2*a[(n-1)/2], 2*a[(n-1)/2]+1}[[j]]; Array[a, 78] (* Jean-François Alcover, Sep 12 2013 *)

Crossrefs

Cf. A135416.

Sequence in context: A220291 A129187 A166532 * A130109 A334998 A153151

Adjacent sequences: A135539 A135540 A135541 * A135543 A135544 A135545

Keyword

nonn

Author

N. J. A. Sloane, based on a message from Guy Steele and Don Knuth, Mar 01 2008

Status

approved