login
A350070
a(n) = 1 if the maximal digit in the primorial base expansion of n is greater than or equal to the maximal exponent in the prime factorization of n, otherwise 0.
5
1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1
OFFSET
1
FORMULA
a(n) = 1 iff A328114(n) >= A051903(n), otherwise 0.
a(n) >= A010051(n).
PROG
(PARI)
A051903(n) = if((1==n), 0, vecmax(factor(n)[, 2]));
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A350070(n) = (A051903(A276086(n)) >= A051903(n));
CROSSREFS
Characteristic function of A350076, which is the complement of A350075.
Cf. also A351039, A351077.
Sequence in context: A175860 A351956 A092152 * A359834 A179775 A341952
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Feb 01 2022
STATUS
approved