%I #6 Jan 13 2020 20:40:34
%S 0,0,0,1,0,0,0,1,0,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,
%T 0,1,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,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,1,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,1
%N If A061395(n) < A001222(n), then a(n) = 1, otherwise a(n) = 0.
%H Antti Karttunen, <a href="/A331282/b331282.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/Pri#prime_indices">Index entries for sequences computed from indices in prime factorization</a>
%F For all n >= 1, a(A000040(n)) = a(A088902(n)) = 0.
%o (PARI)
%o A061395(n) = if(n>1, primepi(vecmax(factor(n)[, 1])), 0);
%o A331282(n) = (A061395(n)<bigomega(n));
%Y Cf. A000040, A001222, A061395, A088902.
%Y Cf. also A331169, A331281.
%K nonn
%O 1
%A _Antti Karttunen_, Jan 13 2020