A187584 - OEIS

A187584

Least number divisible by at least n of its digits, different and > 1.

2, 24, 248, 2364, 27384, 243768, 23469768, 1234759680

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

a(1)=2=A185186(1), a(2)=24=A187516(1),

a(3)=248=A187398(1), a(4)=2364=A187238(1),

a(5)=27384=A187533(1), a(6)=243768=A187534(1),

a(7)=23469768=A187551(1), a(8)=1234759680=A187565(1).

LINKS

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

MATHEMATICA

divQ[m_, n_] := Length[(u = Union[Select[IntegerDigits[m], # > 1 &]])] >= n && Plus @@ (Boole@Divisible[m, u]) >= n; a[n_] := Module[{k = 1}, While[! divQ[k, n], k++]; k]; Array[a, 8] (* Amiram Eldar, Aug 30 2020 *)

PROG

(Python)

def c(n): return len(set(d for d in str(n) if d>'1' and n%int(d)==0))

def a(n):

m = 2*10**(n-1)

while c(m) < n: m += 1

return m

print([a(n) for n in range(1, 7)]) # Michael S. Branicky, Feb 24 2021

CROSSREFS

Cf. A185186, A187238, A187398, A187516, A187533, A187534, A187551, A187565.

Sequence in context: A099669 A019520 A300400 * A173228 A061190 A300399

Adjacent sequences: A187581 A187582 A187583 * A187585 A187586 A187587

KEYWORD

nonn,base,fini,full

AUTHOR

Zak Seidov, Mar 11 2011

EXTENSIONS

a(8) corrected by David A. Corneth, Aug 30 2020

STATUS

approved