A188643 Numbers which are not a multiple of the product of their digits.

10, 13, 14, 16, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 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

Offset: 1

Author

Reinhard Zumkeller, Apr 07 2011

Keywords

• nonn
• base

Comments

Complement of A007602; A188642(a(n)) = 0; A011540 is a subsequence.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A065877.

Programs

Haskell

import Data.List (elemIndices)
a188643 n = a188643_list !! (n-1)
a188643_list = map succ $ elemIndices 0 $ map a188642 [1..]

Mathematica

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 *)
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 *)