A104481 Bisection of A104477.
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, 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, 12, 16, 14, 13, 15, 14, 14, 16, 12, 20, 14, 14, 16, 16, 17, 21, 13, 17, 22, 12, 19, 18, 19
Offset: 1
Programs
-
Mathematica
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 *)
Extensions
More terms from Robert G. Wilson v, Apr 23 2005
Comments