login
A283003
Intersection of A003052 and A283002.
0
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,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
Sequence in context: A259380 A131668 A119252 * A329590 A141708 A081434
KEYWORD
nonn,base
AUTHOR
Peter Weiss, Feb 26 2017
STATUS
approved