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 A174976 #2 Mar 31 2012 12:38:35 %S A174976 11,19,6719,6791,6793,6857,6883,6911,6947,6959,6983,6991,7001,7013, %T A174976 7027,7039,7151,7187,7193,7243,7247,7369,7433,7477,7487,7499,7517, %U A174976 7559,7607,7703,7793,7823,7841,7877,7949,7993,8069,8087,8089,8117,8123,8147,8161 %N A174976 Primes which have an equal number of 0,1,2 in their Base_3 expansion. %C A174976 IntegerDigits[11,3] -> 1,0,2, IntegerDigits[19,3] -> 2,0,1, IntegerDigits[6791,3] -> 1,0,0,0,2,2,1,1,2,... %t A174976 Prime[Select[Range[7! ],Count[IntegerDigits[Prime[ # ],3],0]==Count[IntegerDigits[Prime[ # ],3],1]==Count[IntegerDigits[Prime[ # ],3],2]&]] %Y A174976 Cf. A066196 %K A174976 nonn,base %O A174976 1,1 %A A174976 _Vladimir Joseph Stephan Orlovsky_, Apr 03 2010