A023726 Numbers with a single 1 in their base 5 expansion.

1, 5, 7, 8, 9, 11, 16, 21, 25, 27, 28, 29, 35, 37, 38, 39, 40, 42, 43, 44, 45, 47, 48, 49, 51, 55, 57, 58, 59, 61, 66, 71, 76, 80, 82, 83, 84, 86, 91, 96, 101, 105, 107, 108, 109, 111, 116, 121, 125, 127, 128, 129, 135, 137, 138, 139

Offset

1,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

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

Prog

(PARI) is(n)=my(v=digits(n, 5)); sum(i=1, #v, v[i]==1)==1 \\ Charles R Greathouse IV, Mar 31 2014

Crossrefs

Sequence in context: A031221 A137469 A043353 * A157724 A080644 A309277

Adjacent sequences: A023723 A023724 A023725 * A023727 A023728 A023729

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved