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.

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

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

Index entries for characteristic functions

Index entries for sequences related to primorial base

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. A051903, A276086, A328114, A350074, A351067.

Cf. also A351039, A351077.

Sequence in context: A175860 A351956 A092152 * A359834 A179775 A341952

Adjacent sequences: A350067 A350068 A350069 * A350071 A350072 A350073

Keyword

nonn,base

Author

Antti Karttunen, Feb 01 2022

Status

approved