%I #8 Oct 07 2021 02:06:06
%S 2,131,139,149,163,169,173,179,181,227,243,269,293,317,347,349,361,
%T 373,389,419,443,461,467,509,523,541,557,563,587,613,619,625,653,661,
%U 677,709,729,773,787,797,821,829,853,859,877,907,941,947,1019,1061,1091,1109
%N Numbers k that have primitive roots less than k that are nonnegative perfect seventh powers.
%H Amiram Eldar, <a href="/A084549/b084549.txt">Table of n, a(n) for n = 1..10000</a>
%t q[n_] := Intersection[PrimitiveRootList[n], Range[Floor@Surd[n, 7]]^7] != {}; Select[Range[1000], q] (* _Amiram Eldar_, Oct 07 2021 *)
%Y Cf. A001015, A084547, A084548, A084550.
%K nonn
%O 1,1
%A Hauke Worpel (hw1(AT)email.com), May 30 2003
%E a(1) inserted and more terms added by _Amiram Eldar_, Oct 07 2021
|