A266697 Multiplicative order of 2^n mod 2*n+1.

1, 2, 2, 1, 3, 2, 2, 4, 1, 2, 3, 1, 5, 18, 2, 1, 5, 12, 2, 12, 1, 2, 6, 1, 7, 8, 2, 20, 9, 2, 2, 6, 3, 2, 11, 1, 1, 20, 15, 1, 27, 2, 4, 28, 1, 4, 5, 36, 1, 30, 2, 1, 3, 2, 2, 36, 1, 44, 6, 24, 11, 20, 50, 1, 7, 2, 3, 36, 1, 2, 23, 60, 7, 42, 2, 1, 6, 20, 2

Offset

0,2

Links

Robert Israel, Table of n, a(n) for n = 0..10000

Eric Weisstein's World of Mathematics, Multiplicative Order

Formula

a(n) = A002326(n)/gcd(n,A002326(n)). - Robert Israel, Jan 10 2016

Maple

1, seq(numtheory:-order(2^n, 2*n+1), n=1..100); # Robert Israel, Jan 10 2016

Mathematica

Table[MultiplicativeOrder[2^n, 2 n + 1], {n, 0, 100}]

Prog

(Magma) [1] cat [Modorder(2^n, 2*n+1): n in [1..100]];
(PARI) a(n) = if(n<0, 0, znorder(Mod(2^n, 2*n+1))); \\ Altug Alkan, Jan 04 2016
(GAP) List([0..100], n->OrderMod(2^n, 2*n+1)); # Muniru A Asiru, Feb 25 2019

Crossrefs

Cf. A002326, A053447, A053451.

Sequence in context: A286528 A112200 A112221 * A264402 A289186 A130816

Adjacent sequences: A266694 A266695 A266696 * A266698 A266699 A266700

Keyword

nonn,easy

Author

Vincenzo Librandi, Jan 03 2016

Status

approved