cp's OEIS Frontend

A182183 Numbers k such that the divisors of k are divisible by all digits of their divisors.

%I A182183 #30 Dec 20 2021 02:41:16
%S A182183 1,2,3,4,5,6,7,8,9,11,12,15,22,24,33,44,55,66,77,88,99,132,264,
%T A182183 1111111111111111111,2222222222222222222,3333333333333333333,
%U A182183 4444444444444444444,5555555555555555555,6666666666666666666,7777777777777777777,8888888888888888888
%N A182183 Numbers k such that the divisors of k are divisible by all digits of their divisors.
%C A182183 Subsequence of A209933 (numbers that are divisible by all digits of their divisors).
%C A182183 All divisors of numbers in this sequence are also in the sequence.
%C A182183 The primitive elements of this sequence are A116692. No member of this sequence is divisible by a prime outside this sequence. - _Charles R Greathouse IV_, Apr 17 2012
%e A182183 Number 48 with divisors 1, 2, 3, 4, 6, 8, 12, 16, 24, 48 is not in the sequence because 6 is not a divisor of 16.
%o A182183 (PARI) all(n)=my(v=vecsort(eval(Vec(Str(n))),,8)); if(v[1]==0, return(0)); for(i=1,#v,if(n%v[i],return(0)));1
%o A182183 is(n)=fordiv(n,d,if(!all(d),return(0)));1 \\ _Charles R Greathouse IV_, Apr 17 2012
%o A182183 (Haskell)
%o A182183 import Data.List ((\\))
%o A182183 a182183 n = a182183_list !! (n-1)
%o A182183 a182183_list = f a209933_list [1] where
%o A182183    f (x:xs) ys =
%o A182183      if null (a027751_row x \\ ys) then x : f xs (x : ys) else f xs ys
%o A182183 -- _Reinhard Zumkeller_, Apr 19 2012
%Y A182183 Subsequence of A034838. A116692 is a subsequence.
%Y A182183 Cf. A209933.
%Y A182183 Cf. A027751.
%Y A182183 Cf. A027751.
%K A182183 nonn,base
%O A182183 1,2
%A A182183 _Jaroslav Krizek_, Apr 17 2012
%E A182183 a(24)-a(31) from _Charles R Greathouse IV_, Apr 17 2012