|
%I #11 Jul 22 2020 13:26:43
%S 0,0,0,1,0,0,0,1,1,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,
%T 0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,
%U 0,0,0,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0
%N Characteristic function of A336359, numbers k for which A001222(A000203(k)) < A001222(k).
%C If a(x) = a(y) = 1 and gcd(x,y) = 1, then a(x*y) = 1 also. If a(x) = a(y) = 0 and gcd(x,y) = 1, then a(x*y) = 0 also. This follows because both A001222 and A058063 are additive sequences, their difference A336386 is also.
%H Antti Karttunen, <a href="/A336356/b336356.txt">Table of n, a(n) for n = 1..65537</a>
%H <a href="/index/Ch#char_fns">Index entries for characteristic functions</a>
%H <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a>
%F a(n) = 1 if A058063(n) < A001222(n), otherwise 0.
%F a(A336359(n)) = 1; a(A336360(n)) = 0, for all n >= 1.
%o (PARI) A336356(n) = (bigomega(sigma(n))<bigomega(n));
%Y Cf. A000203, A001222, A058063, A336359, A336360, A336386.
%Y Cf. also A336352, A336355.
%K nonn
%O 1
%A _Antti Karttunen_, Jul 20 2020
|
