|
%I #7 Dec 16 2018 15:01:29
%S 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,
%T 76,78,79,84,85,86,93,95,97,115,119,127,128,129,131,133,137,139,143,
%U 146,147,149,154,156,161
%N Unstuffable numbers.
%C Indices of 0 in A322515.
%H Hans Havermann, <a href="/A322516/b322516.txt">Table of n, a(n) for n = 1..112</a>
%t 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 *)
%Y Cf. A322515, A322322.
%K nonn,base
%O 1,2
%A _Hans Havermann_, Dec 13 2018
|
