login
A085242
a(n) = A085239(n+1) - 2.
1
0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0
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
Cf. A085239.
Sequence in context: A003849 A188034 A115199 * A059620 A188014 A288600
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 22 2003
EXTENSIONS
Name corrected by Ruud H.G. van Tol, May 10 2024
STATUS
approved