OFFSET
0,6
COMMENTS
PROG
(PARI) a=[0, n=1]; u=[1, 1]~; print1("0, 0"); while(n<99, print1(", ", n++-a[1+bittest(n, 0)]=a*u%n))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Dec 05 2009
STATUS
approved