|
%I #13 Oct 13 2018 15:35:01
%S 10,13,14,16,17,18,19,20,21,22,23,25,26,27,28,29,30,31,32,33,34,35,37,
%T 38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,
%U 61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99
%N Numbers which are not a multiple of the product of their digits.
%C Complement of A007602; A188642(a(n)) = 0; A011540 is a subsequence.
%H Reinhard Zumkeller, <a href="/A188643/b188643.txt">Table of n, a(n) for n = 1..10000</a>
%t t={};Do[p=Times@@IntegerDigits[n];If[p==0,AppendTo[t,n], If[!IntegerQ[n/p],AppendTo[t,n]]],{n,99}];t (* _Jayanta Basu_, May 05 2013 *)
%t nmpQ[n_]:=Module[{idn=IntegerDigits[n],pr},pr=If[MemberQ[idn,0],Pi, Times@@ idn];Mod[n,pr]!=0]; Select[Range[100],nmpQ] (* _Harvey P. Dale_, Oct 13 2018 *)
%o (Haskell)
%o import Data.List (elemIndices)
%o a188643 n = a188643_list !! (n-1)
%o a188643_list = map succ $ elemIndices 0 $ map a188642 [1..]
%Y Cf. A065877.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Apr 07 2011
|
