A065202 Characteristic function of A065201: a(n) = if A065201(k) = n for some k then 1 else 0.

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0

Offset

1,1

Comments

a(A065200(n)) = 0 and a(A065201(n)) = 1.

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

Index entries for characteristic functions

Formula

a(n) = A107078(A051119(n)). - Antti Karttunen, Aug 27 2017

Prog

(PARI)
A053585(n) = if(n>1, my(f=factor(n)); f[#f~, 1]^f[#f~, 2], 1) \\ Charles R Greathouse IV, Nov 10 2015
A051119(n) = (n/A053585(n));
A065202(n) = (1-abs(moebius(A051119(n)))); \\ Antti Karttunen, Aug 27 2017

Crossrefs

Cf. A051119, A053585, A065201, A065200, A070003, A107078.

Sequence in context: A354983 A179801 A353474 * A323547 A294930 A353472

Adjacent sequences: A065199 A065200 A065201 * A065203 A065204 A065205

Keyword

nonn

Author

Reinhard Zumkeller, Oct 21 2001

Extensions

Edited by Franklin T. Adams-Watters, Oct 27 2006

Status

approved