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 A153160 #11 Nov 22 2024 01:48:41 %S A153160 64,729,15625,46656,117649,1000000,1771561,2985984,4826809,7529536, %T A153160 11390625,24137569,34012224,47045881,64000000,85766121,113379904, %U A153160 148035889,191102976,308915776,481890304,594823321,729000000,887503681 %N A153160 a(n) = A007916(n)^6. %t A153160 Select[Range[2,100],GCD@@Last/@FactorInteger@#==1&]^6 %o A153160 (Python) %o A153160 from sympy import mobius, integer_nthroot %o A153160 def A153160(n): %o A153160 def f(x): return int(n+1-sum(mobius(k)*(integer_nthroot(x, k)[0]-1) for k in range(2, x.bit_length()))) %o A153160 m, k = n, f(n) %o A153160 while m != k: m, k = k, f(k) %o A153160 return m**6 # _Chai Wah Wu_, Nov 21 2024 %Y A153160 Cf. A007916, A153147, A153157, A153158, A153159, A113851. %K A153160 nonn %O A153160 1,1 %A A153160 _Vladimir Joseph Stephan Orlovsky_, Dec 19 2008 %E A153160 Edited and extended by _Ray Chandler_, Dec 22 2008