OFFSET
0,2
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
Eric Weisstein's World of Mathematics, Multiplicative Order
FORMULA
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
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 03 2016
STATUS
approved