OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
37 is in the sequence because 32 is a primitive root of 37 and 32 = 2^5.
MATHEMATICA
q[n_] := Intersection[PrimitiveRootList[n], Range[Floor @ Surd[n, 5]]^5] != {}; Select[Range[600], q] (* Amiram Eldar, Oct 07 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hauke Worpel (hw1(AT)email.com), May 30 2003
EXTENSIONS
Data corrected and extended by Amiram Eldar, Oct 07 2021
STATUS
approved