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: A179801 A374093 A353474 * A374100 A323547 A294930

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