A043361 Duplicate of A023734.
3, 8, 13, 15, 16, 17, 19, 23, 28, 33, 38, 40, 41, 42, 44, 48, 53, 58, 63, 65, 66
Offset: 1
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.
seq(`if`(numboccur(3,convert(n,base,5))=2,n,NULL),n=0..450); # Nathaniel Johnston, Jun 27 2011
Select[ Range[ 450 ], (Count[ IntegerDigits[ #, 5 ], 3 ]==2)& ] Select[Range[500],DigitCount[#,5,3]==2&] (* Harvey P. Dale, Mar 24 2021 *)
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)& ]