The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 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.

Last modified September 23 12:11 EDT 2021. Contains 347617 sequences. (Running on oeis4.)