OFFSET
1,1
COMMENTS
The repunits are in A002275; therefore, to be a near-repunit, x must have only one other digit besides one, and the ones must outnumber the other digit.
Number of terms < 10^k: 0, 0, 26, 35, 44, 53, 62, 71, 80, 89, ...; this is 9k-1 for k>2.
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..10080
MATHEMATICA
f[n_] := Block[{lst = {}, r = (10^(n-1) -1)/9}, Do[ AppendTo[lst, Select[ FromDigits[ Permutations[ Append[ IntegerDigits@ r, d]]], # > r &]], {d, {0, 2, 3, 4, 5, 6, 7, 8, 9}}]; Union@ Flatten@ lst]; f[1] = f[2] = {}; Array[f, 4] // Flatten
CROSSREFS
KEYWORD
base,nonn,easy
AUTHOR
Robert G. Wilson v, Jun 23 2015
STATUS
approved