A022932 a(n) is the number of powers Pi^m between e^n and e^(n+1).

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

Offset

0,1

Comments

Characteristic function of A059561. - Antti Karttunen, Sep 22 2017

Links

Hans Havermann & Antti Karttunen, Table of n, a(n) for n = 0..10000

Index entries for characteristic functions

Mathematica

t = Table[IntegerPart[i/Log[Pi]] - IntegerPart[(i - 1)/Log[Pi]], {i, 1000000}]; (* Hans Havermann, Sep 22 2017 *)

Prog

(PARI) a(n)=(n+1)\log(Pi) - n\log(Pi) \\ Charles R Greathouse IV, Jan 16 2017

Crossrefs

Cf. A059562 (positions of zeros after the initial a(0)=0), A059561 (of ones).

Sequence in context: A306453 A175629 A109720 * A334812 A079421 A304438

Adjacent sequences: A022929 A022930 A022931 * A022933 A022934 A022935

Keyword

nonn

Author

Clark Kimberling

Extensions

More terms from Antti Karttunen, Sep 22 2017

Status

approved