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

Comments

Each term is a perfect power (in A001597).

Links

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

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

Cf. A046523, A327503.

Subsequence of A001597.

Sequence in context: A182658 A282919 A100406 * A341115 A183797 A234783

Adjacent sequences: A351945 A351946 A351947 * A351949 A351950 A351951

Keyword

nonn

Author

Antti Karttunen, Apr 03 2022

Status

approved