A098389 Prime(n) - floor(log_2(prime(n))).

1, 2, 3, 5, 8, 10, 13, 15, 19, 25, 27, 32, 36, 38, 42, 48, 54, 56, 61, 65, 67, 73, 77, 83, 91, 95, 97, 101, 103, 107, 121, 124, 130, 132, 142, 144, 150, 156, 160, 166, 172, 174, 184, 186, 190, 192, 204, 216, 220, 222, 226, 232, 234, 244, 249, 255, 261, 263, 269, 273

Offset

1,2

Comments

a(n) = A000040(n) - A098388(n).

Links

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

Example

a(10) = A000040(10) - A098388(10) = 29 - 4 = 25.

Mathematica

#-Floor[Log[2, #]]&/@Prime[Range[60]] (* Harvey P. Dale, Nov 06 2011 *)

Prog

(PARI) a(n)=my(p=prime(n)); p-log(p+.5)\log(2) \\ Charles R Greathouse IV, May 29 2013

Crossrefs

Cf. A000523, A098390, A014689, A098386, A098392.

Sequence in context: A256793 A193640 A112045 * A215260 A004977 A186498

Adjacent sequences: A098386 A098387 A098388 * A098390 A098391 A098392

Keyword

nonn

Author

Reinhard Zumkeller, Sep 06 2004

Status

approved