|
%I #19 Jul 30 2020 03:57:19
%S 3,5,9,11,13,15,17,19,21,25,27,29,33,35,37,39,41,43,45,51,53,55,57,59,
%T 61,63,65,67,69,75,77,81,83,85,87,91,93,95,97,99,101,105,107,109,111,
%U 113,115,117,119,121,123,125,129,131,133,135,137,139,141,143,145,147,149,153
%N Numbers k such that the multiplicative order of 2 modulo k is even.
%C Odd numbers k such that A007733(k) = A002326((k-1)/2) is even.
%H Amiram Eldar, <a href="/A296243/b296243.txt">Table of n, a(n) for n = 1..10000</a>
%t A036259 = Select[Range[1, 199, 2], OddQ[MultiplicativeOrder[2, #]] &];
%t Range[1, A036259[[-1]], 2] ~Complement~ A036259 (* _Jean-François Alcover_, Dec 20 2017 *)
%t Select[Range[1, 153, 2], EvenQ[MultiplicativeOrder[2, #]] &] (* _Amiram Eldar_, Jul 30 2020 *)
%o (PARI) { is_A296243(n) = (n%2) && !(znorder(Mod(2,n))%2); }
%Y Set difference of A005408 and A036259.
%Y Contains A296244 as a subsequence.
%Y The prime terms are given by A014662.
%Y Cf. A002326, A007733.
%K nonn
%O 1,1
%A _Max Alekseyev_, Dec 09 2017
|
