A098393 Prime(n)+Log2(Log2(prime(n))), where Log2=A000523.

2, 3, 6, 8, 12, 14, 19, 21, 25, 31, 33, 39, 43, 45, 49, 55, 61, 63, 69, 73, 75, 81, 85, 91, 99, 103, 105, 109, 111, 115, 129, 133, 139, 141, 151, 153, 159, 165, 169, 175, 181, 183, 193, 195, 199, 201, 213, 225, 229, 231, 235, 241, 243, 253, 260, 266, 272, 274, 280

Offset: 1

Author

Reinhard Zumkeller, Sep 06 2004

Keywords

• nonn

Comments

a(n) = A000040(n) + A098391(n).

Examples

			a(10) = A000040(10) + A098391(10) = 29 + 2 = 31.
		

Crossrefs

Cf. A098389, A014688, A098387, A098390.

Programs

Mathematica

#+Floor[Log[2,Floor[Log[2,#]]]]&/@Prime[Range[60]] (* Harvey P. Dale, May 07 2017 *)