A289618 - OEIS

%I #7 Jul 10 2017 03:53:26

%S 0,0,0,0,0,1,0,0,0,1,0,0,0,1,1,0,0,0,0,0,1,1,0,2,0,1,0,0,0,1,0,0,1,1,

%T 1,1,0,1,1,2,0,1,0,0,0,1,0,0,0,0,1,0,0,2,1,2,1,1,0,2,0,1,0,0,1,1,0,0,

%U 1,1,0,1,0,1,0,0,1,1,0,0,0,1,0,2,1,1,1,2,0,2,1,0,1,1,1,1,0,0,0,1,0,1,0,2,1,1,0,1,0,1,1,0,0,1,1,0,0,1,1,2

%N a(n) = A289617(n) - A046645(n) = A005187(A001222(n)) - A046645(n).

%H Antti Karttunen, <a href="/A289618/b289618.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Eu#epf">Index entries for sequences computed from exponents in factorization of n</a>

%F a(n) = A289617(n) - A046645(n) = A005187(A001222(n)) - A046645(n).

%o (Scheme) (define (A289618 n) (- (A289617 n) (A046645 n)))

%Y Cf. A046645, A289617.

%Y Cf. A268375 (positions of zeros), A289619 (of ones).

%K nonn

%O 1,24

%A _Antti Karttunen_, Jul 08 2017