A090379 - OEIS

%I #11 Dec 18 2022 08:03:07

%S 1,1,0,0,1,0,2,1,1,1,3,1,4,2,2,2,5,2,6,3,3,3,7,3,3,3,3,3,8,4,9,4,4,4,

%T 4,4,10,5,5,5,11,5,12,6,6,6,13,6,6,6,6,6,14,7,7,7,7,7,15,7,16,8,8,8,8,

%U 8,17,8,8,8,18,9,19,9,9,9,9,9,20,10,10,10,21,10,10,10,10,10,22,11,11,11

%N a(n) = abs(floor((pi(n)-2)/(2-pi(n)+pi(n-1)))), where pi(n) is A000720(n).

%t a[n_] := Abs[Floor[(PrimePi[n] - 2)/(2 - PrimePi[n] + PrimePi[n - 1])]];

%t Table[ a[n], {n, 1, 92}]

%K nonn,less

%O 1,7

%A _Roger L. Bagula_, Jan 29 2004