A351077 a(n) = 1 if the maximal exponent in the prime factorization of A327860(n) is greater than or equal to the maximal exponent in the prime factorization of n, otherwise 0.

1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 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, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1

Offset

1

Links

Table of n, a(n) for n=1..120.

Index entries for characteristic functions

Index entries for sequences related to primorial base

Formula

a(n) = 1 iff A328391(n) >= A051903(n), otherwise 0.

Prog

(PARI)
A051903(n) = if((1==n), 0, vecmax(factor(n)[, 2]));
A327860(n) = { my(s=0, m=1, p=2, e); while(n, e = (n%p); m *= (p^e); s += (e/p); n = n\p; p = nextprime(1+p)); (s*m); };
A351077(n) = (A051903(A327860(n)) >= A051903(n));

Crossrefs

Characteristic function of A351076, which is the complement of A351075.

Cf. A003415, A276086, A051903, A327860, A328391.

Cf. also A350070, A351039.

Sequence in context: A284364 A115788 A195062 * A229940 A179761 A317906

Adjacent sequences: A351074 A351075 A351076 * A351078 A351079 A351080

Keyword

nonn

Author

Antti Karttunen, Feb 01 2022

Status

approved