login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A087723 Values that appear more than once in A087724 (related to the growth of PrimePi). 1

%I

%S 1,2,7,11,12,13,15,19,26,29,33,35,41,48,54,71,72,76,84,86,90,92,93,96,

%T 98,103,105,108,117,122,127,129,130,137,142,152,157,158,165,176,180,

%U 183,191,193,194,196,213,214,218,219,229,231,233,234,235,246,250,256,267

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

%t 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]

%K nonn

%O 1,2

%A _Roger L. Bagula_, Sep 29 2003

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 25 10:07 EDT 2021. Contains 346289 sequences. (Running on oeis4.)