|
%I #10 Dec 03 2022 05:46:57
%S 1,32,64,128,243,256,512,729,1024,2048,2187,3125,4096,6561,7776,8192,
%T 15625,16384,16807,19683,32768,46656,59049,65536,78125,100000,117649,
%U 131072,161051,177147,248832,262144,279936,371293,390625,524288,531441
%N Perfect powers m^k where k >= 5.
%C If p|n when at least p^5|n.
%H Amiram Eldar, <a href="/A076469/b076469.txt">Table of n, a(n) for n = 1..10000</a>
%F Sum_{n>=1} 1/a(n) = 4 - zeta(2) - zeta(3) - zeta(4) + Sum_{k>=2} mu(k)*(4 - zeta(k) - zeta(2*k) - zeta(3*k) - zeta(4*k)) = 1.06932853458... . - _Amiram Eldar_, Dec 03 2022
%t a = {1}; Do[ If[ Apply[ GCD, Last[ Transpose[ FactorInteger[n]]]] > 4, a = Append[a, n]; Print[n]], {n, 2, 537823}]; a
%Y Cf. A001597, A076467, A076468, A076470.
%Y Cf. A002117, A013661, A013662.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Oct 14 2002
|
