%I A023698
%S A023698 1093,2551,3037,3199,3253,3271,3277,3279,3281,3283,3289,3307,
%T A023698 3361,3523,4009,5467,6925,7411,7573,7627,7645,7651,7653,7655,
%U A023698 7657,7663,7681,7735,7897,8383,8869,9031,9085,9103,9109,9111
%N A023698 Numbers with exactly 7 1's in ternary expansion.
%t A023698 Select[ Range[ 9153 ], (Count[ IntegerDigits[ #, 3 ], 1 ]==7)& ]
%Y A023698 Sequence in context: A091673 A096082 A138698 this_sequence A038469 A077816 
               A001220
%Y A023698 Adjacent sequences: A023695 A023696 A023697 this_sequence A023699 A023700 
               A023701
%K A023698 nonn,base,easy
%O A023698 1,1
%A A023698 Olivier Gerard (olivier.gerard(AT)gmail.com)