A098386 a(n) = prime(n)-Log2(n), where Log2 = A000523.

2, 2, 4, 5, 9, 11, 15, 16, 20, 26, 28, 34, 38, 40, 44, 49, 55, 57, 63, 67, 69, 75, 79, 85, 93, 97, 99, 103, 105, 109, 123, 126, 132, 134, 144, 146, 152, 158, 162, 168, 174, 176, 186, 188, 192, 194, 206, 218, 222, 224, 228, 234, 236, 246, 252, 258, 264, 266, 272, 276

Offset

1,1

Links

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

Example

a(10) = A000040(10) - A000523(10) = 29 - 3 = 26.

Mathematica

Table[Prime[n]-Floor[Log2[n]], {n, 60}] (* Harvey P. Dale, Nov 20 2021 *)

Crossrefs

Cf. A000040, A000523, A098387, A014689, A098389, A098392.

Sequence in context: A051630 A050045 A308955 * A326447 A326527 A326632

Adjacent sequences: A098383 A098384 A098385 * A098387 A098388 A098389

Keyword

nonn

Author

Reinhard Zumkeller, Sep 06 2004

Status

approved