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

Author

Roger L. Bagula, Sep 29 2003

Keywords

• nonn

Programs

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]