Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A216412
The cubes arising in A039771.
2
1, 1, 8, 8, 8, 8, 8, 64, 64, 64, 64, 64, 64, 64, 64, 216, 216, 216, 216, 216, 216, 216, 216, 216, 216, 216, 216, 216, 216, 216, 216, 216, 512, 216, 216, 512, 512, 512, 1000, 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
OFFSET
1,3
LINKS
FORMULA
a(n) = A000010(A039771(n)). - Amiram Eldar, Mar 06 2020
MATHEMATICA
Select[EulerPhi @ Range[3000], IntegerQ[Surd[#, 3]] &] (* Amiram Eldar, Mar 06 2020 *)
KEYWORD
nonn
AUTHOR
V. Raman, Sep 07 2012
STATUS
approved