OFFSET
1,3
COMMENTS
Number of bits in binary expansion of n-th prime = A035100.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
EXAMPLE
a(6) = 13 - 4 = 9;
a(7) = 17 - 5 = 12.
MAPLE
MATHEMATICA
Table[Prime[n] - Length[IntegerDigits[Prime[n], 2]], {n, 100}] (* G. C. Greubel, Dec 17 2016 *)
PROG
(PARI) for(n=1, 60, p=prime(n); print1(p-#binary(p), ", ")) \\ Washington Bomfim Jan 18 2011
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Juri-Stepan Gerasimov, Jul 24 2009
STATUS
approved