login
A351947
Numbers k for which A327500(k) <> A351946(k).
1
450, 882, 900, 1764, 2178, 2450, 3042, 3675, 4356, 4900, 5202, 6050, 6084, 6498, 7350, 7560, 8450, 9075, 9522, 10404, 11025, 11858, 11880, 12100, 12675, 12996, 13500, 14040, 14450, 15138, 16562, 16632, 16900, 17298, 17787, 18050, 18150, 18360, 19044, 19656, 20520, 21000, 21675, 23716, 24642, 24840, 24843, 25350
OFFSET
1,1
PROG
(PARI)
A051903(n) = if((1==n), 0, vecmax(factor(n)[, 2]));
A181819(n) = factorback(apply(e->prime(e), (factor(n)[, 2])));
A351564(n) = issquarefree(factorback(apply(e->prime(e), (factor(n)[, 2]))));
A327499(n) = fordiv(n, d, if(A351564(n/d), return(d)));
A327500(n) = { my(u=A327499(n)); if(u==n, 0, 1+A327500(u)); };
isA351947(k) = (A327500(k) != A351946(k));
CROSSREFS
Sequence in context: A093402 A012062 A339978 * A079659 A304511 A202197
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 03 2022
STATUS
approved