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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A065333 Characteristic function of 3-smooth numbers, i.e. numbers of the form 2^i*3^j (i, j >= 0). 16
1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

a(n) = signum(A065332(n)), where signum = A057427. a(n) = if A065330(n) = 1 then 1 else 0 = 1 - signum(A065330(n) - 1).

Dirichlet inverse of b(n) where b(n) = 0 except for: b(1) = b(6) = -b(2) = -b(3) = 1. - Alexander Adam, Dec 26 2012

LINKS

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

A. Pakapongpun, T. Ward, Functorial Orbit counting, JIS 12 (2009) 09.2.4, example 9.

Index entries for characteristic functions

FORMULA

a(n) = if n = A003586(k) for some k then 1 else 0.

a(n) = Prod(0^floor(p/4): p prime and p|n). - Reinhard Zumkeller, Nov 19 2004

Multiplicative with a(2^e) = a(3^e) = 1, a(p^e) = 0 for prime p > 3. Dirichlet g.f. 1/(1-2^-s)/(1-3^-s). - Franklin T. Adams-Watters, Sep 01 2006

a(n) = 0^(A038502(A000265(n)) - 1). - Reinhard Zumkeller, Sep 28 2008

a(n)=sum(d divides n, mu(6*d)) - Benoit Cloitre, Oct 18 2009

MATHEMATICA

a[n_] := Boole[ 2^IntegerExponent[n, 2] * 3^IntegerExponent[n, 3] == n]; Table[a[n], {n, 1, 105}] (* Jean-Fran├žois Alcover, May 16 2013, after Charles R Greathouse IV *)

PROG

(PARI) a(n)=sumdiv(n, d, moebius(6*d)) \\ Benoit Cloitre, Oct 18 2009

(PARI) a(n)=3^valuation(n, 3)<<valuation(n, 2)==n \\ Charles R Greathouse IV, Aug 21 2011

(Haskell)

a065333 = fromEnum . (== 1) . a038502 . a000265

-- Reinhard Zumkeller, Jan 08 2013, Apr 12 2012

CROSSREFS

Sequence in context: A117198 A054525 A174852 * A244611 A127972 A103451

Adjacent sequences:  A065330 A065331 A065332 * A065334 A065335 A065336

KEYWORD

mult,nonn,easy

AUTHOR

Reinhard Zumkeller, Oct 29 2001

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified March 25 11:34 EDT 2017. Contains 284076 sequences.