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

%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