OFFSET
1,2
COMMENTS
Numbers which do not have a partition with multiplicities at most nine into parts {2, 11, 101, 1001, ...} or {2, 20, 101, 1010, ...}. - Charlie Neder, Feb 06 2019
MATHEMATICA
selfQ[n_, b_] := Catch[Block[{d = Length[IntegerDigits[n, b]]}, Do[If[k + Total@ IntegerDigits[k, b] == n, Throw@False], {k, Max[0, n - (b-1) d], n-1}]; True]]; Select[ Range[31112], selfQ[#, 10] && selfQ[#, 100] &] (* Giovanni Resta, Feb 28 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Peter Weiss, Feb 26 2017
STATUS
approved