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 A079108 #7 Mar 31 2012 10:23:02 %S A079108 3,3,3,4,3,4,5,4,5,3,4,3,5,5,5,4,3,4,5,5,5,4,5,5,4,3,4,5,5,6,6,4,5,6, %T A079108 8,4,5,6,6,5,3,4,4,5,6,5,3,4,6,5,6,8,6,5,4,6,8,5,5,5,6,6,8,3,4,5,4,6, %U A079108 6,5,6,8,4,5,5,6,5,8,4,6,8,6,8,6,8,8,8,5,6,6,5,5,5,8,4,6,6,8,8,9,6,8,5,5,4 %N A079108 Number of 1's in the base 8 form of A077722(n). %e A079108 a(5)=3 since A077722(5)=32833, which has an octal form of 100101, which has 3 ones. %p A079108 s := 0:for n from 1 to 7000 do b := convert(n,base,2):q := sum(b[i]*8^(i-1),i=1..nops(b)): if(isprime(q)) then s := s+1:a[s] := sum(b[i],i=1..nops(b)):fi:od:seq(a[k],k=1..s); %Y A079108 Cf. A077722. %K A079108 nonn %O A079108 1,1 %A A079108 Francois Jooste (phukraut(AT)hotmail.com), Dec 23 2002 %E A079108 More terms from _Sascha Kurz_, Feb 10 2003