login
A345952
a(n) = 1 if the largest prime power divisor of n (A034699) is greater than the largest prime divisor of n (A006530).
2
0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1
OFFSET
1
FORMULA
a(n) = 1 if A034699(n) > A006530(n), 0 otherwise.
a(n) >= A268340(n), for all n >= 1.
a(n) >= A345951(n), for all n >= 1.
PROG
(PARI) A345952(n) = { my(f=factor(n), k=#f[, 1]); for(i=1, k, if(f[i, 1]^f[i, 2]>f[k, 1], return(1))); (0); }; \\ After program given in A122145.
CROSSREFS
Characteristic function of A122145.
Sequence in context: A060039 A319710 A345951 * A359466 A359467 A359469
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 04 2021
STATUS
approved