login
Bisection of A104477.
1

%I #6 Jul 30 2015 22:38:26

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

%T 9,8,8,11,10,11,10,8,11,10,12,9,12,14,9,10,14,15,11,12,10,11,16,12,15,

%U 15,12,16,14,13,15,14,14,16,12,20,14,14,16,16,17,21,13,17,22,12,19,18,19

%N Bisection of A104477.

%C a(n) = A014085(n) - 1. - _Klaus Brockhaus_, Apr 20 2005

%t NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; PrevPrim[n_] := Block[{k = n - 1}, While[ !PrimeQ[k], k-- ]; k]; f[n_] := PrimePi[ PrevPrim[(n + 1)^2]] - PrimePi[ NextPrim[n^2]]; Table[ f[n], {n, 83}] (* _Robert G. Wilson v_, Apr 23 2005 *)

%Y Cf. A014085, A061265, A104477.

%K easy,nonn

%O 1,4

%A _Alexandre Wajnberg_, Apr 18 2005

%E More terms from _Robert G. Wilson v_, Apr 23 2005