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,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

Table of n, a(n) for n=1..40.

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

Cf. A003052, A283002.

Sequence in context: A259380 A131668 A119252 * A329590 A141708 A081434

Adjacent sequences: A283000 A283001 A283002 * A283004 A283005 A283006

Keyword

nonn,base

Author

Peter Weiss, Feb 26 2017

Status

approved