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

Author

Reinhard Zumkeller, Sep 06 2004

Keywords

• nonn

Examples

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

Crossrefs

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

Programs

Mathematica

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