|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|