login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A188642 Characteristic function of numbers that are divisible by the product of their digits. 6
0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET

0

COMMENTS

a(A007602(n)) = a(A038186(n)) = 1; a(A188643(n)) = 0.

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000 (corrected by Georg Fischer, Jan 20 2019)

Index entries for characteristic functions

MAPLE

isA007602 := proc(n) if A007954(n) = 0 then false; else `if`(n mod A007954(n) = 0, true, false) ; end if; end proc:

A188642 := proc(n) if isA007602(n) then 1; else 0 ; end if ; end proc:

seq(A188642(n), n=0..30) ; # R. J. Mathar, Apr 08 2011

PROG

(Haskell)

a188642 n

   | a168046 n == 1 = 1 - signum (n `mod` a007954 n)

   | otherwise      = 0

a188642_list = map a188642 [0..]

CROSSREFS

Cf. A007954, A168046, A188641.

Sequence in context: A252372 A168182 A204447 * A168046 A168184 A013595

Adjacent sequences:  A188639 A188640 A188641 * A188643 A188644 A188645

KEYWORD

nonn,base

AUTHOR

Reinhard Zumkeller, Apr 07 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 19 07:51 EST 2019. Contains 320309 sequences. (Running on oeis4.)