|
%I #22 Mar 06 2020 00:57:38
%S 1,1,8,8,8,8,8,64,64,64,64,64,64,64,64,216,216,216,216,216,216,216,
%T 216,216,216,216,216,216,216,216,216,216,512,216,216,512,512,512,1000,
%U 1000,512,512,1000,512,512,512,1728,1728,1000,512,1000,512,1728,1000,1728,1728,1000,1000,1728,1728,1000,1728,1728,1000,1728
%N The cubes arising in A039771.
%H Amiram Eldar, <a href="/A216412/b216412.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A000010(A039771(n)). - _Amiram Eldar_, Mar 06 2020
%t Select[EulerPhi @ Range[3000], IntegerQ[Surd[#, 3]] &] (* _Amiram Eldar_, Mar 06 2020 *)
%Y Cf. A000010, A039770, A039771, A039772, A062732, A078164, A166955.
%K nonn
%O 1,3
%A _V. Raman_, Sep 07 2012
|
