A139138 Numbers divisible by at least two of their digits.

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

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

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..100 from Alvin Hoover Belt)

Index entries for 10-automatic sequences

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 *)

Prog

(Python)
from sympy import factorint
def ok(n): return sum(1 for d in map(int, str(n)) if d > 0 and n%d == 0) > 1
print([k for k in range(163) if ok(k)]) # Michael S. Branicky, Nov 12 2021

Crossrefs

Cf. A038770, A187516.

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 Hoover Belt, Apr 06 2009

Own omission (140) fixed by Alvin Hoover Belt, Apr 18 2009

Status

approved