login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A064661 a(n) = n - floor( prime(n)/log(prime(n)) ). 1
-1, 0, 0, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 4, 5, 5, 6, 6, 7, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 8, 7, 8, 8, 9, 8, 7, 8, 8, 9, 9, 10, 9, 9, 9, 9, 10, 10, 11, 11, 11, 10, 10, 11, 11, 10, 11, 10, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 12, 12 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,8
LINKS
MATHEMATICA
Table[n-Floor[Prime[n]/Log[Prime[n]]], {n, 90}] (* Harvey P. Dale, Sep 27 2017 *)
PROG
(PARI) { for (n=1, 1000, write("b064661.txt", n, " ", n - prime(n)\log(prime(n))) ) } \\ Harry J. Smith, Sep 21 2009
CROSSREFS
Sequence in context: A004052 A051742 A134119 * A226982 A280952 A235122
KEYWORD
sign
AUTHOR
N. J. A. Sloane, Oct 10 2001
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 09:04 EDT 2024. Contains 371240 sequences. (Running on oeis4.)