A351947 Numbers k for which A327500(k) <> A351946(k).

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

Author

Antti Karttunen, Apr 03 2022

Keywords

• nonn

Crossrefs

Cf. A327500, A351946.

Programs

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)); };
A351946(n) = A051903(A181819(n));
isA351947(k) = (A327500(k) != A351946(k));