OFFSET
1,1
LINKS
Jamie Morken, Table of n, a(n) for n = 1..10000 (first 1000 terms from G. C. Greubel)
MAPLE
Digits := 40: [ seq(1+floor(evalf(log(ithprime(n))/log(2))), n=1..100) ];
MATHEMATICA
f[n_]:=Length[IntegerDigits[Prime[n], 2]]; Table[f[n], {n, 5!}] (* Vladimir Joseph Stephan Orlovsky, Feb 07 2010 *)
IntegerLength[Prime[Range[100]], 2] (* Harvey P. Dale, Nov 10 2022 *)
PROG
(PARI) a(n)=#binary(prime(n)) \\ Charles R Greathouse IV, Sep 23 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved