|
%I #14 Jul 30 2020 03:56:58
%S 40,24,36,56,60,660,198,252,45,180,60,144,153,1012,36,120,300,72,36,
%T 1160,60,36,300,56,36,660,4284,264,420,3060,2268,180,540,1680,120,
%U 4900,1080,396,72,72,60,60,144,2970,612,396,324,210,180,540,504,792,198,180
%N Multiplicative order of 2 in Z/mZ with m = A002997(n).
%C Related sequence: A162990. - _A.K. Devaraj_, Aug 31 2009
%D A. K. Devaraj, "Minimum universal exponent generalisation of Fermat's theorem" (ISSN 1550-3747)
%H Amiram Eldar, <a href="/A163956/b163956.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A002326((A002997(n)-1)/2) = A007733(A002997(n)). - _Amiram Eldar_, Jul 30 2020
%t MultiplicativeOrder[2, #] & /@ Select[Range[1, 10^6, 2], CompositeQ[#] && Divisible[# - 1, CarmichaelLambda[#]] &] (* _Amiram Eldar_, Jul 30 2020 *)
%Y Cf. A002326, A002997, A007733, A104016, A162990, A165139.
%K nonn
%O 1,1
%A _A.K. Devaraj_, Aug 28 2009
%E Corrected and extended by _M. F. Hasler_, Sep 23 2009
%E Edited by _N. J. A. Sloane_, Sep 23 2009, following suggestions from _M. F. Hasler_
%E More terms from _Amiram Eldar_, Jul 30 2020
|
