%I #9 Oct 07 2021 02:06:28
%S 2,37,53,59,67,81,83,107,139,149,163,169,173,179,197,227,243,254,257,
%T 269,274,278,283,289,293,298,317,326,343,346,347,349,353,361,373,379,
%U 389,394,398,419,443,446,449,463,466,467,487,509,514,523,538,547,557,563
%N Numbers k that have primitive roots less than k that are nonnegative perfect fifth powers.
%H Amiram Eldar, <a href="/A084548/b084548.txt">Table of n, a(n) for n = 1..10000</a>
%e 37 is in the sequence because 32 is a primitive root of 37 and 32 = 2^5.
%t q[n_] := Intersection[PrimitiveRootList[n], Range[Floor @ Surd[n, 5]]^5] != {}; Select[Range[600], q] (* _Amiram Eldar_, Oct 07 2021 *)
%Y Cf. A000584, A084547, A084549, A084550.
%K nonn
%O 1,1
%A Hauke Worpel (hw1(AT)email.com), May 30 2003
%E Data corrected and extended by _Amiram Eldar_, Oct 07 2021
|