

A139138


Numbers divisible by at least two of their digits.


2



11, 12, 15, 22, 24, 33, 36, 44, 48, 55, 66, 77, 88, 99, 101, 102, 104, 105, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 128, 131, 132, 135, 138, 140, 141, 142, 144, 145, 147, 148, 150, 151, 152, 153, 155, 156, 161, 162
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Digits need not be distinct. This may be considered row 2 of an infinite array whose 1st row is A038770. Each such row is a subset of the ones above it.


LINKS

Alvin Hoover Belt, Table of n, a(n) for n = 1..100


MATHEMATICA

fQ[n_] := Count[Mod[n, Flatten[IntegerDigits[n] /. {0 > {}}]], 0] > 1; Select[ Range@ 170, fQ] (* Robert G. Wilson v, Jun 23 2014 *)
Select[Range[200], Count[Divisible[#, Select[IntegerDigits[#], #>0&]], True]>1&] (* Harvey P. Dale, Dec 16 2015 *)


CROSSREFS

Cf. A038770.
Sequence in context: A128997 A189836 A292683 * A249766 A113600 A255725
Adjacent sequences: A139135 A139136 A139137 * A139139 A139140 A139141


KEYWORD

base,easy,nonn,dumb


AUTHOR

Jonathan Vos Post, Jun 05 2008


EXTENSIONS

More terms from Alvin H. Belt, Apr 06 2009
Own omission (140) fixed by Alvin H. Belt, Apr 18 2009


STATUS

approved



