%I A104481
%S A104481 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,9,
%T A104481 8,8,11,10,11,10,8,11,10,12,9,12,14,9,10,14,15,11,12,10,11,16,12,15,15,
%U A104481 12,16,14,13,15,14,14,16,12,20,14,14,16,16,17,21,13,17,22,12,19,18,19
%N A104481 Bisection of A104477.
%C A104481 a(n) = A014085(n) - 1. - Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), 
               Apr 20 2005
%t A104481 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}] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 23 2005)
%Y A104481 Cf. A014085, A061265, A104477.
%Y A104481 Sequence in context: A070956 A007828 A070804 this_sequence A078709 A023022 
               A100677
%Y A104481 Adjacent sequences: A104478 A104479 A104480 this_sequence A104482 A104483 
               A104484
%K A104481 easy,nonn
%O A104481 1,4
%A A104481 Alexandre Wajnberg (alexandre.wajnberg(AT)ulb.ac.be), Apr 18 2005
%E A104481 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 23 2005