login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A210666 Near-repdigit numbers, or numbers with all like or repeated digits but one. 6
100, 101, 110, 112, 113, 114, 115, 116, 117, 118, 119, 121, 122, 131, 133, 141, 144, 151, 155, 161, 166, 171, 177, 181, 188, 191, 199, 200, 202, 211, 212, 220, 221, 223, 224, 225, 226, 227, 228, 229, 232, 233, 242, 244, 252, 255, 262, 266, 272, 277, 282, 288 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

These numbers have a majority of one digit.

a(n) = A031955(n+81) for n <= 244.

For n <= 243, i.e., the 3-digit terms, a(n) = A218556(n+10). - M. F. Hasler, Nov 02 2012

LINKS

Arkadiusz Wesolowski, Table of n, a(n) for n = 1..10000

MATHEMATICA

lst = {}; Do[If[SortBy[Tally[IntegerDigits[n]], Last][[-1, -1]] == IntegerLength[n] - 1, AppendTo[lst, n]], {n, 100, 288}]; lst

lst = {}; Do[r = Table[a, {n}]; Do[c = FromDigits@Permutations[Join[{d}, r]]; If[d == 0, c = Rest[c]]; AppendTo[lst, c], {d, 0, 9}], {a, 0, 9}, {n, 2, 2}]; Drop[Union@Flatten[lst], 19]

nrepQ[n_] := Module[{dg = Select[DigitCount[n], # > 0 &]}, Length[dg] == 2 && Min[dg] == 1 && Max[dg] > 1]; Select[Range[300], nrepQ] (* Harvey P. Dale, Nov 20 2012 *)

CROSSREFS

Subsequence of A031955. Supersequence of A164937.

Sequence in context: A090429 A248711 A079112 * A280825 A233345 A091254

Adjacent sequences:  A210663 A210664 A210665 * A210667 A210668 A210669

KEYWORD

base,easy,nice,nonn

AUTHOR

Arkadiusz Wesolowski, May 08 2012

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 24 12:01 EDT 2019. Contains 322429 sequences. (Running on oeis4.)