A322516 Unstuffable numbers.

1, 2, 3, 4, 5, 6, 7, 8, 9, 23, 25, 27, 28, 31, 32, 36, 39, 41, 46, 47, 49, 54, 62, 69, 71, 73, 76, 78, 79, 84, 85, 86, 93, 95, 97, 115, 119, 127, 128, 129, 131, 133, 137, 139, 143, 146, 147, 149, 154, 156, 161

Offset

1,2

Comments

Indices of 0 in A322515.

Links

Hans Havermann, Table of n, a(n) for n = 1..112

Mathematica

With[{x = 70}, Complement[Range@ x, Position[Array[Block[{w = #, s = Position[#, {}][[All, 1]]}, SelectFirst[Range[10^(Length@ s - 1), 10^Length@ s - 1], Function[k, Mod[FromDigits@ ReplacePart[w, Array[s[[#]] -> k[[#]] &, Length@ s]], #] == 0]@ IntegerDigits[#] &]] &@ Drop[Flatten[Map[Prepend[ConstantArray[{}, #], #] &, #], 1], -Last@ #] &@ IntegerDigits[#] &, x], _?IntegerQ][[All, 1]] ] ] (* Michael De Vlieger, Dec 13 2018 *)

Crossrefs

Cf. A322515, A322322.

Sequence in context: A318273 A061672 A272814 * A132080 A307636 A373722

Adjacent sequences: A322513 A322514 A322515 * A322517 A322518 A322519

Keyword

nonn,base

Author

Hans Havermann, Dec 13 2018

Status

approved