Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 Feb 18 2019 11:12:53
%S 1,3,4,7,10,12,14,17,22,28,31,34,38,41,46,51,58,60,63,68,69,77,80,86,
%T 93,98,101,105,107,110,127,126,132,135,145,148,154,159,164,170,176,
%U 178,190,188,193,196,208,222,224,226,230,238,238,250,250,258,264,267,272,276
%N n-th prime minus number of 0's in binary representation of n-th prime.
%F a(n) = A000040(n) - A035103(n).
%p 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:
%p A035103 := proc(n) A023416(ithprime(n)) ; end proc:
%p A177959 := proc(n) ithprime(n)-A035103(n) ; end proc:
%p seq(A177959(n),n=1..120) ; # _R. J. Mathar_, May 30 2010
%Y Cf. A014499, A035193, A177687.
%K nonn
%O 1,2
%A _Juri-Stepan Gerasimov_, May 16 2010
%E Corrected (39 removed, 124 replaced by 224, 126 replaced by 226) by _R. J. Mathar_, May 30 2010