A351948 Numbers k for which A327503(A046523(k)) differs from A327503(k).

125000, 941192, 8000000, 14172488, 16000000, 28344976, 38614472, 47832147, 60236288, 77228944, 120472576, 130323843, 193100552, 312500000, 376367048, 386201104, 625000000, 651714363, 752734096, 907039232, 1184287112, 1270238787, 1814078464, 1953125000, 2368574224, 2471326208, 3996969003

Offset: 1

Author

Antti Karttunen, Apr 03 2022

Keywords

• nonn

Comments

Each term is a perfect power (in A001597).

Crossrefs

Cf. A046523, A327503.

Subsequence of A001597.

Programs

PARI

A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); }; \\ From A046523
A327502(n) = if(n==1, 1, n/vecmax(select(x->((x>1) && !ispower(x)), divisors(n))));
A327503(n) = { my(u=A327502(n)); if(u==n, 0, 1+A327503(u)); };
isA351948(k) = if(!ispower(k),0,(A327503(A046523(k)) != A327503(k)));