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

Author

Clark Kimberling

Keywords

• nonn

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

Crossrefs

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

Programs

Mathematica

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

PARI

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

Extensions

More terms from Antti Karttunen, Sep 22 2017