login
A351948
Numbers k for which A327503(A046523(k)) differs from A327503(k).
1
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,1
COMMENTS
Each term is a perfect power (in A001597).
PROG
(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)));
CROSSREFS
Subsequence of A001597.
Sequence in context: A182658 A282919 A100406 * A341115 A183797 A234783
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 03 2022
STATUS
approved