A283003 Intersection of A003052 and A283002.

1, 3, 5, 7, 9, 31, 53, 75, 97, 1109, 1210, 1311, 1412, 1513, 1614, 1715, 1816, 1917, 10098, 11110, 11211, 11312, 11413, 11514, 11615, 11716, 11817, 11918, 20099, 21111, 21212, 21313, 21414, 21515, 21616, 21717, 21818, 21919, 30100, 31112

Offset: 1

Author

Peter Weiss, Feb 26 2017

Keywords

• nonn
• base

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

Crossrefs

Cf. A003052, A283002.

Programs

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 *)