%I #14 Dec 22 2021 11:45:02
%S 840,1320,1560,1680,1848,2040,2184,2280,2520,2640,2760,2856,3080,3120,
%T 3192,3360,3432,3480,3640,3696,3720,3864,3960,4080,4200,4368,4440,
%U 4488,4560,4620,4680,4760,4872,4920,5016,5040,5160,5208,5280,5304,5320,5460,5520,5544,5640,5712,5720,5880,5928,6072,6120
%N Numbers n such that the multiplicative group modulo n is the direct product of 5 cyclic groups.
%C Numbers n such that A046072(n) = 5.
%t A046072[n_] := Which[n == 1 || n == 2, 1,
%t OddQ[n], PrimeNu[n],
%t EvenQ[n] && !Divisible[n, 4], PrimeNu[n] - 1,
%t Divisible[n, 4] && !Divisible[n, 8], PrimeNu[n],
%t Divisible[n, 8], PrimeNu[n] + 1];
%t Select[Range[10^4], A046072[#] == 5&] (* _Jean-François Alcover_, Dec 22 2021, after _Geoffrey Critzer_ in A046072 *)
%o (PARI) for(n=1, 10^4, my(t=#(znstar(n)[2])); if(t==5, print1(n, ", ")));
%Y Direct product of k groups: A033948 (k=1), A272592 (k=2), A272593 (k=3), A272594 (k=4), A272596 (k=6), A272597 (k=7), A272598 (k=8), A272599 (k=9).
%K nonn
%O 1,1
%A _Joerg Arndt_, May 05 2016
|