|
Search: id: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, 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
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
a(n) = A014085(n) - 1. - Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Apr 20 2005
|
|
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}] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 23 2005)
|
|
CROSSREFS
|
Cf. A014085, A061265, A104477.
Adjacent sequences: A104478 A104479 A104480 this_sequence A104482 A104483 A104484
Sequence in context: A070956 A007828 A070804 this_sequence A078709 A023022 A100677
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Alexandre Wajnberg (alexandre.wajnberg(AT)ulb.ac.be), Apr 18 2005
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 23 2005
|
|
|
Search completed in 0.002 seconds
|
