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
Keywords
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]
Comments