A177959 n-th prime minus number of 0's in binary representation of n-th prime.

1, 3, 4, 7, 10, 12, 14, 17, 22, 28, 31, 34, 38, 41, 46, 51, 58, 60, 63, 68, 69, 77, 80, 86, 93, 98, 101, 105, 107, 110, 127, 126, 132, 135, 145, 148, 154, 159, 164, 170, 176, 178, 190, 188, 193, 196, 208, 222, 224, 226, 230, 238, 238, 250, 250, 258, 264, 267, 272, 276

Offset: 1

Author

Juri-Stepan Gerasimov, May 16 2010

Keywords

• nonn

Crossrefs

Cf. A014499, A035193, A177687.

Programs

Maple

A023416 := proc(n) a := 0 ; for d in convert(n,base,2) do if d = 0 then a := a+1 ; end if; end do; a ; end proc:
A035103 := proc(n) A023416(ithprime(n)) ; end proc:
A177959 := proc(n) ithprime(n)-A035103(n) ; end proc:
seq(A177959(n),n=1..120) ; # R. J. Mathar, May 30 2010

Formula

a(n) = A000040(n) - A035103(n).

Extensions

Corrected (39 removed, 124 replaced by 224, 126 replaced by 226) by R. J. Mathar, May 30 2010