A023734 Numbers with a single 3 in their base-5 expansion.
3, 8, 13, 15, 16, 17, 19, 23, 28, 33, 38, 40, 41, 42, 44, 48, 53, 58, 63, 65, 66, 67, 69, 73, 75, 76, 77, 79, 80, 81, 82, 84, 85, 86, 87, 89, 95, 96, 97, 99, 103, 108, 113, 115, 116, 117, 119, 123, 128, 133, 138, 140, 141, 142, 144, 148, 153, 158
Offset: 1
Links
- Nathaniel Johnston, Table of n, a(n) for n = 1..10000
Programs
-
Maple
seq(`if`(numboccur(3,convert(n,base,5))=1,n,NULL),n=0..200); # Nathaniel Johnston, Jun 27 2011
-
Mathematica
Select[ Range[ 150 ], (Count[ IntegerDigits[ #, 5 ], 3 ]==1)& ]