cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A187534 Numbers divisible by at least six of their digits, different and >1.

This page as a plain text file.
%I A187534 #15 Mar 18 2025 20:54:07
%S A187534 243768,247968,248976,297864,364728,367248,376824,427896,428736,
%T A187534 432768,469728,478296,478632,483672,623784,627984,634872,689472,
%U A187534 732648,742896,746928,762384,768432,789264,796824,824376,836472,873264,897624,927864,976248,978264,1289736,1293768,1369872,1372896,1376928,1382976,1679328,1679832
%N A187534 Numbers divisible by at least six of their digits, different and >1.
%C A187534 There are 1437 terms < 10^7.
%C A187534 Asymptotic density 1/35 = 0.0285.... - _Charles R Greathouse IV_, Mar 11 2011
%H A187534 Amiram Eldar, <a href="/A187534/b187534.txt">Table of n, a(n) for n = 1..10000</a>
%t A187534 numdig = 6; Select[Range[1679832], Length[(u = Union[Select[IntegerDigits[#], #1 > 1 &]])] >= numdig && Plus @@ (Boole@Divisible[#, u]) >= numdig &] (* _Amiram Eldar_, Aug 30 2020 *)
%t A187534 Select[Range[2*10^5,168*10^4],Length[Select[#/Union[DeleteCases[IntegerDigits[#],1]],IntegerQ]]>5&]//Quiet (* _Harvey P. Dale_, Mar 18 2025 *)
%Y A187534 Subsequence of A187533.
%Y A187534 Cf. A187398, A187516, A187238.
%K A187534 nonn,base
%O A187534 1,1
%A A187534 _Zak Seidov_, Mar 11 2011