A083187 a(n) = floor(log_3/2(n+1)) - floor(log_3/2(n)).

1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0

Offset

1,1

Comments

a(n) = 1 for n in A002379.

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

Index entries for characteristic functions

Prog

(PARI) for(n=1, 100, print1(floor(log(n+1)/log(3/2))-floor(log(n)/log(3/2))", "))
(PARI)
A002379(n) = ((3^n)>>n); \\ This function from Charles R Greathouse IV, Jun 10 2011
A083187(n) = { my(k=1); while(A002379(k)<n, k++); (A002379(k)==n); }; \\ Antti Karttunen, Dec 15 2017

Crossrefs

Characteristic function of A002379.

Sequence in context: A093996 A323095 A336868 * A187036 A192490 A267133

Adjacent sequences: A083184 A083185 A083186 * A083188 A083189 A083190

Keyword

nonn,easy

Author

Ralf Stephan, Jun 01 2003

Status

approved