OFFSET
1,2
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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Sep 06 2004
STATUS
approved