%I #16 Apr 02 2014 05:04:31
%S 6,26,30,32,33,34,36,41,46,56,81,106,126,130,132,133,134,136,141,146,
%T 150,152,153,154,160,162,163,164,165,167,168,169,170,172,173,174,176,
%U 180,182,183,184,186,191,196,201,205,207,208
%N Numbers with exactly 2 1's in their base 5 expansion.
%H Vincenzo Librandi, <a href="/A023727/b023727.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[ Range[ 225 ], (Count[ IntegerDigits[ #, 5 ], 1 ]==2)& ]
%o (PARI) is(n)=my(v=digits(n,5)); sum(i=1,#v,v[i]==1)==2 \\ _Charles R Greathouse IV_, Mar 31 2014
%K nonn,base,easy
%O 1,1
%A _Olivier GĂ©rard_