%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
|