login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A095375 Total number of 1's in the binary expansions of the first n primes: summatory A014499. 10
1, 3, 5, 8, 11, 14, 16, 19, 23, 27, 32, 35, 38, 42, 47, 51, 56, 61, 64, 68, 71, 76, 80, 84, 87, 91, 96, 101, 106, 110, 117, 120, 123, 127, 131, 136, 141, 145, 150, 155, 160, 165, 172, 175, 179, 184, 189, 196, 201, 206, 211, 218, 223, 230, 232, 236, 240, 245, 249, 253 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..60.

EXAMPLE

n=4: first 4 primes={10,11,101,111},with a[4]=8 digit of 1.

MAPLE

read("transforms") :

A095375 := proc(n)

    local a;

    a := 0 ;

    for i from 1 to n do

        a := a+wt(ithprime(i)) ;

    end do:

end proc: # R. J. Mathar, Jul 13 2012

MATHEMATICA

lib[x_] :=Count[IntegerDigits[x, 2], 1] {s=0, ta=Table[0, {256}]}; Do[s=s+lib[Prime[n]]; ta[[n]]=s, {n, 1, 256}] ta

PROG

(PARI) a(n)=my(s); forprime(p=2, prime(n), s+=hammingweight(p)); s \\ Charles R Greathouse IV, Mar 29 2013

CROSSREFS

Cf. A000120, A000788, A014499, A079584.

Sequence in context: A185723 A022852 A180124 * A129260 A076829 A084505

Adjacent sequences:  A095372 A095373 A095374 * A095376 A095377 A095378

KEYWORD

nonn,base

AUTHOR

Labos Elemer, Jun 07 2004

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 16 21:10 EDT 2019. Contains 328103 sequences. (Running on oeis4.)