OFFSET
1,1
PROG
(PARI) upto(L) = my(v2=2, v3=1, r=List()); while(v3<L, v3*=3; while(v2<v3 && v2<=L, listput(~r, 0); v2*=2); v3<=L && listput(~r, 1)); Vec(r); \\ Ruud H.G. van Tol, May 10 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 22 2003
EXTENSIONS
Name corrected by Ruud H.G. van Tol, May 10 2024
STATUS
approved