This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A104481 #6 Jul 30 2015 22:38:26
%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,
%T A104481 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 A104481 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 A104481 Bisection of A104477.
%C A104481 a(n) = A014085(n) - 1. - _Klaus Brockhaus_, 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}] (* _Robert G. Wilson v_, Apr 23 2005 *)
%Y A104481 Cf. A014085, A061265, A104477.
%K A104481 easy,nonn
%O A104481 1,4
%A A104481 _Alexandre Wajnberg_, Apr 18 2005
%E A104481 More terms from _Robert G. Wilson v_, Apr 23 2005