login
A331282
If A061395(n) < A001222(n), then a(n) = 1, otherwise a(n) = 0.
4
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, 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, 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
OFFSET
1
FORMULA
For all n >= 1, a(A000040(n)) = a(A088902(n)) = 0.
PROG
(PARI)
A061395(n) = if(n>1, primepi(vecmax(factor(n)[, 1])), 0);
A331282(n) = (A061395(n)<bigomega(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 13 2020
STATUS
approved