login
A171674
Numbers n with property that n is divisible by (at least one) sum of two its positive digits.
2
12, 18, 21, 24, 27, 36, 42, 45, 48, 54, 63, 72, 81, 84, 102, 108, 110, 112, 114, 116, 118, 120, 123, 126, 129, 132, 136, 140, 144, 145, 150, 156, 161, 162, 165, 168, 176, 180, 189, 190, 192, 196, 198, 201, 204, 207, 209, 210, 212, 213, 216, 219, 220, 224, 228
OFFSET
1,1
EXAMPLE
12=(1+2)*4, 102=(1+2)*34, 297=(2+7)*33.
MATHEMATICA
A171674=Reap[Do[id=Select[IntegerDigits[n], #>0&]; su2=Total/@Subsets[id, {2}]; Le=Length[su2]; Do[x=su2[[k]]; If[Mod[n, x]==0, Sow[n]; Break[]], {k, Le}], {n, 12, 30000}]][[2, 1]];
CROSSREFS
Cf. A005349 Niven (or Harshad) numbers: numbers that are divisible by the sum of their digits, A171674 Squares divisible by (at least one) sum of two their positive digits.
Sequence in context: A071927 A362052 A247625 * A247624 A031207 A107794
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Dec 15 2009
STATUS
approved