login
A351039
a(n) = 1 if the maximal digit in the primorial base expansion of n is less than or equal to the maximal exponent in the prime factorization of n.
7
0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0
OFFSET
1
FORMULA
a(n) = 1 iff A328114(n) <= A051903(n), otherwise 0.
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); };
A351039(n) = (A051903(A276086(n)) <= A051903(n));
CROSSREFS
Characteristic function of A351038.
Cf. also A350070, A351077.
Sequence in context: A131729 A144609 A115517 * A022930 A285596 A257680
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Feb 01 2022
STATUS
approved