A043362 Duplicate of A023735.
18, 43, 68, 78, 83, 88, 90, 91, 92, 94, 98, 118, 143, 168, 193, 203, 208, 213
Offset: 1
Keywords
Programs
-
Mathematica
Select[Range[200],DigitCount[#,5,3]==1&] (* Harvey P. Dale, Mar 24 2021 *)
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.
Select[Range[200],DigitCount[#,5,3]==1&] (* Harvey P. Dale, Mar 24 2021 *)
seq(`if`(numboccur(3,convert(n,base,5))=1,n,NULL),n=0..200); # Nathaniel Johnston, Jun 27 2011
Select[ Range[ 150 ], (Count[ IntegerDigits[ #, 5 ], 3 ]==1)& ]
seq(`if`(numboccur(3,convert(n,base,5))=3,n,NULL),n=0..2000); # Nathaniel Johnston, Jun 27 2011
Select[ Range[ 1750 ], (Count[ IntegerDigits[ #, 5 ], 3 ]==3)& ]