This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A177959 #7 Feb 18 2019 11:12:53 %S A177959 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 A177959 93,98,101,105,107,110,127,126,132,135,145,148,154,159,164,170,176, %U A177959 178,190,188,193,196,208,222,224,226,230,238,238,250,250,258,264,267,272,276 %N A177959 n-th prime minus number of 0's in binary representation of n-th prime. %F A177959 a(n) = A000040(n) - A035103(n). %p A177959 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 A177959 A035103 := proc(n) A023416(ithprime(n)) ; end proc: %p A177959 A177959 := proc(n) ithprime(n)-A035103(n) ; end proc: %p A177959 seq(A177959(n),n=1..120) ; # _R. J. Mathar_, May 30 2010 %Y A177959 Cf. A014499, A035193, A177687. %K A177959 nonn %O A177959 1,2 %A A177959 _Juri-Stepan Gerasimov_, May 16 2010 %E A177959 Corrected (39 removed, 124 replaced by 224, 126 replaced by 226) by _R. J. Mathar_, May 30 2010