Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #8 Sep 25 2021 06:50:13
%S 2,11,25,29,34,50,53,58,59,83,89,101,106,107,113,121,125,131,137,149,
%T 166,167,173,178,179,197,202,214,226,227,233,250,251,257,263,269,274,
%U 281,289,293,298,317,334,346,347,353,358,359
%N Numbers n that have primitive roots less than n that are nonnegative perfect cubes.
%H Amiram Eldar, <a href="/A084547/b084547.txt">Table of n, a(n) for n = 1..10000</a>
%e 89 is in the sequence because 27 is a primitive root of 89 and 27 is three cubed.
%t q[n_] := Intersection[PrimitiveRootList[n], Range[Floor@Surd[n, 3]]^3] != {}; Select[Range[360], q] (* _Amiram Eldar_, Sep 25 2021 *)
%Y Cf. A000578, A084548, A084549, A084550.
%K nonn
%O 1,1
%A Hauke Worpel (hw1(AT)email.com), May 30 2003
%E a(1) inserted by _Amiram Eldar_, Sep 25 2021