A228017 Numbers n divisible by the sum of any k-subset of digits of n with k >= 1.

1, 2, 3, 4, 5, 6, 7, 8, 9, 12, 24, 36, 48

Offset

1,2

Comments

No additional terms less than 20000000. - T. D. Noe, Aug 14 2013

Terms > 9 must be even since any pair of digits has an even subset. Since terms must also be zeroless, they cannot be divisible by 5, which means no further terms could have 5 or more digits by the Pigeonhole Principle. Therefore, this sequence is complete. - Charlie Neder, May 31 2019

Links

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

Example

48 is here because 48 is divisible by 4, 8, and 4+8.

Mathematica

okQ[n_] := Module[{s = Total /@ Rest[Subsets[IntegerDigits[n]]]}, ! MemberQ[s, 0] && And @@ IntegerQ /@ (n/s)]; Select[Range[10000], okQ] (* T. D. Noe, Aug 14 2013 *)

Crossrefs

Subset of A051004 and of A346535.

Sequence in context: A059043 A259236 A138141 * A346535 A227224 A236750

Adjacent sequences: A228014 A228015 A228016 * A228018 A228019 A228020

Keyword

nonn,base,fini,full

Author

Derek Orr, Aug 02 2013

Status

approved