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,1

Links

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

Example

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

Mathematica

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

Crossrefs

Cf. A000578, A084548, A084549, A084550.

Sequence in context: A370338 A012213 A012251 * A241238 A296285 A077482

Adjacent sequences: A084544 A084545 A084546 * A084548 A084549 A084550

Keyword

nonn

Author

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

Extensions

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

Status

approved