A023734 - OEIS

%I #10 Feb 23 2019 21:47:24

%S 3,8,13,15,16,17,19,23,28,33,38,40,41,42,44,48,53,58,63,65,66,67,69,

%T 73,75,76,77,79,80,81,82,84,85,86,87,89,95,96,97,99,103,108,113,115,

%U 116,117,119,123,128,133,138,140,141,142,144,148,153,158

%N Numbers with a single 3 in their base-5 expansion.

%H Nathaniel Johnston, <a href="/A023734/b023734.txt">Table of n, a(n) for n = 1..10000</a>

%p seq(`if`(numboccur(3,convert(n,base,5))=1,n,NULL),n=0..200); # _Nathaniel Johnston_, Jun 27 2011

%t Select[ Range[ 150 ], (Count[ IntegerDigits[ #, 5 ], 3 ]==1)& ]

%Y Cf. A023733, A023735.

%K nonn,base,easy

%O 1,1

%A _Olivier Gérard_