This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A351948 #14 Apr 03 2022 22:53:47
%S A351948 125000,941192,8000000,14172488,16000000,28344976,38614472,47832147,
%T A351948 60236288,77228944,120472576,130323843,193100552,312500000,376367048,
%U A351948 386201104,625000000,651714363,752734096,907039232,1184287112,1270238787,1814078464,1953125000,2368574224,2471326208,3996969003
%N A351948 Numbers k for which A327503(A046523(k)) differs from A327503(k).
%C A351948 Each term is a perfect power (in A001597).
%o A351948 (PARI)
%o A351948 A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); }; \\ From A046523
%o A351948 A327502(n) = if(n==1, 1, n/vecmax(select(x->((x>1) && !ispower(x)), divisors(n))));
%o A351948 A327503(n) = { my(u=A327502(n)); if(u==n, 0, 1+A327503(u)); };
%o A351948 isA351948(k) = if(!ispower(k),0,(A327503(A046523(k)) != A327503(k)));
%Y A351948 Cf. A046523, A327503.
%Y A351948 Subsequence of A001597.
%K A351948 nonn
%O A351948 1,1
%A A351948 _Antti Karttunen_, Apr 03 2022