A085242 a(n) = A085239(n+1) - 2.

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

Links

Table of n, a(n) for n=1..102.

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

Adjacent sequences: A085239 A085240 A085241 * A085243 A085244 A085245

Keyword

nonn

Author

Reinhard Zumkeller, Jun 22 2003

Extensions

Name corrected by Ruud H.G. van Tol, May 10 2024

Status

approved