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,1

Links

Nathaniel Johnston, Table of n, a(n) for n = 1..10000

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)& ]

Crossrefs

Cf. A023733, A023735.

Sequence in context: A310289 A310290 A043361 * A045296 A065042 A277555

Adjacent sequences: A023731 A023732 A023733 * A023735 A023736 A023737

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved