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
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Dec 15 2009
STATUS
approved