A084547 Numbers n that have primitive roots less than n that are nonnegative perfect cubes.

2, 11, 25, 29, 34, 50, 53, 58, 59, 83, 89, 101, 106, 107, 113, 121, 125, 131, 137, 149, 166, 167, 173, 178, 179, 197, 202, 214, 226, 227, 233, 250, 251, 257, 263, 269, 274, 281, 289, 293, 298, 317, 334, 346, 347, 353, 358, 359

Offset: 1

Author

Hauke Worpel (hw1(AT)email.com), May 30 2003

Keywords

• nonn

Examples

			89 is in the sequence because 27 is a primitive root of 89 and 27 is three cubed.
		

Links

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

Crossrefs

Cf. A000578, A084548, A084549, A084550.

Programs

Mathematica

q[n_] := Intersection[PrimitiveRootList[n], Range[Floor@Surd[n, 3]]^3] != {}; Select[Range[360], q] (* Amiram Eldar, Sep 25 2021 *)

Extensions

a(1) inserted by Amiram Eldar, Sep 25 2021