A216412 The cubes arising in A039771.

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

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

a(n) = A000010(A039771(n)). - Amiram Eldar, Mar 06 2020

Mathematica

Select[EulerPhi @ Range[3000], IntegerQ[Surd[#, 3]] &] (* Amiram Eldar, Mar 06 2020 *)

Crossrefs

Cf. A000010, A039770, A039771, A039772, A062732, A078164, A166955.

Sequence in context: A165925 A165926 A216865 * A166082 A145446 A248762

Adjacent sequences: A216409 A216410 A216411 * A216413 A216414 A216415

Keyword

nonn

Author

V. Raman, Sep 07 2012

Status

approved