%I M0474 N0175 #69 Sep 08 2022 08:44:31
%S 1,2,3,4,5,6,7,8,9,10,11,12,15,20,22,24,30,33,36,40,44,48,50,55,60,66,
%T 70,77,80,88,90,99,100,101,102,104,105,110,111,112,115,120,122,124,
%U 126,128,132,135,140,144,150,155,162,168,175,184,200,202,204,208,210,212
%N Numbers that are divisible by each nonzero digit.
%C If n is a member so is 10*n. Also all repunits are members. - _Robert G. Wilson v_, Apr 12 2015
%C The repdigits are also members because they're always the repunit number of the same length multiplied by the digit being repeated. - _Eric Fox_, Sep 02 2019
%C The number of terms < 10^k: 9, 32, 137, 751, 4577, 29950, 207197, 1495637, ... . - _Robert G. Wilson v_, Apr 13 2015
%C Includes all multiples of 2520. - _Robert Israel_, Apr 15 2015
%C For n >= 10: A067458(a(n)) = 0. - _Reinhard Zumkeller_, Sep 24 2015
%D Lindon, Visible factor numbers, J. Rec. Math., 1 (1968), 217.
%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H T. D. Noe, <a href="/A002796/b002796.txt">Table of n, a(n) for n = 1..2000</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%F a(n) ~ 2520*n. - _Charles R Greathouse IV_, Feb 13 2017
%p select(t -> t mod ilcm(op(convert(convert(t,base,10),set) minus {0})) = 0, [$1..1000]); # _Robert Israel_, Apr 15 2015
%t dQ[n_]:=Module[{nzidn=DeleteCases[IntegerDigits[n],0]},And@@Divisible[n, nzidn]]; Select[Range[250],dQ] (* _Harvey P. Dale_, Dec 13 2011 *)
%o (PARI) is(n)=my(v=vecsort(eval(Vec(Str(n))),,8));for(i=1+(v[1]==0), #v, if(n%v[i],return(0)));1 \\ _Charles R Greathouse IV_, Apr 17 2012
%o (Haskell)
%o import Data.List (nub, sort); import Data.Char (digitToInt)
%o a002796 n = a002796_list !! (n-1)
%o a002796_list = filter f [1..] where
%o f x = all ((== 0) . mod x) ds where
%o ds = map digitToInt (if c == '0' then cs else cs')
%o cs'@(c:cs) = nub $ sort $ show x
%o -- _Reinhard Zumkeller_, Jan 01 2014
%o (Magma) sol:=[];for k in [1..220] do a:=Set(Intseq(k)) diff {0}; if #[c:c in a|IsIntegral(k/c)] eq #a then; Append(~sol,k); end if; end for; sol; // _Marius A. Burtea_, Sep 09 2019
%o (Python)
%o A002796_list = []
%o for i in range(1,10**5):
%o for d in set(str(i)):
%o if d != '0' and i % int(d):
%o break
%o else:
%o A002796_list.append(i) # _Chai Wah Wu_, Mar 26 2021
%Y Cf. A007602, A034838, A237851.
%Y Cf. A171492 (complement).
%Y Cf. A067458.
%K nonn,base,easy,nice
%O 1,2
%A _N. J. A. Sloane_
%E More terms from _Henry Bottomley_, Jun 06 2000
|