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

Links

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

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

Crossrefs

Cf. A327500, A351946.

Sequence in context: A093402 A012062 A339978 * A079659 A304511 A202197

Adjacent sequences: A351944 A351945 A351946 * A351948 A351949 A351950

Keyword

nonn

Author

Antti Karttunen, Apr 03 2022

Status

approved