%I #9 Apr 02 2014 03:26:35
%S 4,9,14,19,20,21,22,23,29,34,39,44,45,46,47,48,54,59,64,69,70,71,72,
%T 73,79,84,89,94,95,96,97,98,100,101,102,103,105,106,107,108,110,111,
%U 112,113,115,116,117,118,129,134,139,144,145,146
%N Numbers with a single 4 in their base 5 expansion.
%H Vincenzo Librandi, <a href="/A023738/b023738.txt">Table of n, a(n) for n = 1..5000</a>
%t Select[ Range[ 150 ], (Count[ IntegerDigits[ #, 5 ], 4 ]==1)& ]
%K nonn,base,easy
%O 1,1
%A _Olivier GĂ©rard_
|