A331282 - OEIS

%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