OFFSET
0,2
REFERENCES
D. Gale, Mathematical Entertainments: "Careful Card-Shuffling and Cutting Can Create Chaos," The Mathematical Intelligencer, vol. 14, no. 1, 1992, pages 54-56.
D. Gale, Tracking the Automatic Ant and Other Mathematical Explorations, A Collection of Mathematical Entertainments Columns from The Mathematical Intelligencer, Springer, 1998.
LINKS
Lars Blomberg, Table of n, a(n) for n = 0..9999
Eric Weisstein's World of Mathematics, Perfect Shuffle.
MATHEMATICA
Transpose[Position[NestList[riguy, {}, 64], 1]][[2]] (* See A035490. *)
PROG
(Python)
from itertools import count, islice
def agen(): # generator of terms
deck = []; yield 1
for n in count(1):
deck += [2*n-1, 2*n]
first, next = deck[:n], deck[n:2*n]
deck[0:2*n:2], deck[1:2*n:2] = next, first
yield deck.index(1) + 1
print(list(islice(agen(), 65))) # Michael S. Branicky, Aug 11 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved