%I #16 Sep 23 2017 19:11:05
%S 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,
%T 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,
%U 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
%N a(n) is the number of powers Pi^m between e^n and e^(n+1).
%C Characteristic function of A059561. - _Antti Karttunen_, Sep 22 2017
%H Hans Havermann & Antti Karttunen, <a href="/A022932/b022932.txt">Table of n, a(n) for n = 0..10000</a>
%H <a href="/index/Ch#char_fns">Index entries for characteristic functions</a>
%t t = Table[IntegerPart[i/Log[Pi]] - IntegerPart[(i - 1)/Log[Pi]], {i, 1000000}]; (* _Hans Havermann_, Sep 22 2017 *)
%o (PARI) a(n)=(n+1)\log(Pi) - n\log(Pi) \\ _Charles R Greathouse IV_, Jan 16 2017
%Y Cf. A059562 (positions of zeros after the initial a(0)=0), A059561 (of ones).
%K nonn
%O 0,1
%A _Clark Kimberling_
%E More terms from _Antti Karttunen_, Sep 22 2017