A087723 Values that appear more than once in A087724 (related to the growth of PrimePi).

1, 2, 7, 11, 12, 13, 15, 19, 26, 29, 33, 35, 41, 48, 54, 71, 72, 76, 84, 86, 90, 92, 93, 96, 98, 103, 105, 108, 117, 122, 127, 129, 130, 137, 142, 152, 157, 158, 165, 176, 180, 183, 191, 193, 194, 196, 213, 214, 218, 219, 229, 231, 233, 234, 235, 246, 250, 256, 267

Offset

1,2

Links

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

Mathematica

Digits=1000 a[n_]=-PrimePi[n]+Floor[Prime[n]/Log[n]]-2 b=Table[a[n], {n, 2, Digits}] c=Table[If[b[[n]]-b[[n-1]]==0, b[[n]], 0], {n, 2, Digits-1}] d=Delete[Union[c], 1]

Crossrefs

Sequence in context: A053247 A226089 A208846 * A359167 A299242 A184792

Adjacent sequences: A087720 A087721 A087722 * A087724 A087725 A087726

Keyword

nonn

Author

Roger L. Bagula, Sep 29 2003

Status

approved