%I #17 Jan 28 2015 09:31:22
%S 0,8,12,15,16,20,21,24,28,30,32,33,35,36,39,40,42,44,45,48,51,52,55,
%T 56,57,60,63,64,65,66,68,69,70,72,75,76,77,78,80,84,85,87,88,90,91,92,
%U 93,95,96,99,100,102,104,105,108,110,111,112,114,115,116,117,119,120,123
%N Numbers having no primitive root.
%C Union of {0} and A033949.
%C Numbers n such that A046145(n)=0 except n=1.
%t Prepend[Select[Range[2, 123], Not[IntegerQ[PrimitiveRoot[#]]] &], 0] (* _Alonso del Arte_, Dec 12 2011 *)
%K nonn
%O 1,2
%A Vladislav-Stepan Malakhovsky & _Juri-Stepan Gerasimov_, Jul 20 2010
%E Corrected by _R. J. Mathar_, Oct 15 2011
%E Corrected by _Arkadiusz Wesolowski_, Sep 06 2012
|