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,4

Comments

a(n) = A014085(n) - 1. - Klaus Brockhaus, Apr 20 2005

Links

Table of n, a(n) for n=1..83.

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 *)

Crossrefs

Cf. A014085, A061265, A104477.

Sequence in context: A303656 A253630 A362938 * A078709 A023022 A177501

Adjacent sequences: A104478 A104479 A104480 * A104482 A104483 A104484

Keyword

easy,nonn

Author

Alexandre Wajnberg, Apr 18 2005

Extensions

More terms from Robert G. Wilson v, Apr 23 2005

Status

approved