login
A177959
n-th prime minus number of 0's in binary representation of n-th prime.
1
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,2
FORMULA
a(n) = A000040(n) - A035103(n).
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
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected (39 removed, 124 replaced by 224, 126 replaced by 226) by R. J. Mathar, May 30 2010
STATUS
approved