|
| |
|
|
A014499
|
|
Number of 1's in binary representation of n-th prime.
|
|
29
| |
|
|
1, 2, 2, 3, 3, 3, 2, 3, 4, 4, 5, 3, 3, 4, 5, 4, 5, 5, 3, 4, 3, 5, 4, 4, 3, 4, 5, 5, 5, 4, 7, 3, 3, 4, 4, 5, 5, 4, 5, 5, 5, 5, 7, 3, 4, 5, 5, 7, 5, 5, 5, 7, 5, 7, 2, 4, 4, 5, 4, 4, 5, 4, 5, 6, 5, 6, 5, 4, 6, 6, 4, 6, 7, 6, 7, 8, 4, 5, 4, 5, 5, 5, 7, 5, 7, 7, 4, 5, 6, 7, 6, 8, 7, 7, 7, 8, 8, 3, 4
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| a(n)=A000120(A000040(n)).
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..10000
|
|
|
MATHEMATICA
| f[n_]:=Plus@@IntegerDigits[n, 2]; lst={}; Do[p=Prime[n]; AppendTo[lst, f[p]], {n, 6!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Oct 10 2009]
|
|
|
PROG
| (PARI) A014499(n)=norml2(binary(prime(n))) [From M. F. Hasler (www.univ-ag.fr/~mhasler), Nov 20 2009]
|
|
|
CROSSREFS
| Cf. A035103, A035100, A004676, A090455.
Cf. A027697, A027699
Cf. A180024. [From Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Aug 08 2010]
Sequence in context: A108133 A194883 A175453 * A055778 A106482 A122462
Adjacent sequences: A014496 A014497 A014498 * A014500 A014501 A014502
|
|
|
KEYWORD
| nonn,base,easy
|
|
|
AUTHOR
| Ingemar Assarsjo (ingemar(AT)binomen.se)
|
| |
|
|
