A124965 Odd values of 2^n mod n corresponding to the n's given in A015911.

7, 17, 43, 37, 13, 17, 57, 53, 85, 53, 63, 151, 93, 161, 107, 173, 67, 193, 251, 239, 43, 233, 107, 155, 161, 105, 81, 179, 233, 103, 239, 143, 125, 179, 349, 161, 305, 89, 257, 83, 143, 279, 197, 161, 371, 35, 15, 449, 253, 437, 403, 407, 255, 279, 353

Offset: 1

Author

Zak Seidov, Nov 14 2006, corrected Nov 25 2006

Keywords

• nonn

Links

• Zak Seidov, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A015911.

Programs

Mathematica

Select[PowerMod[2,#,#]&/@Range[550],OddQ] (*Ray Chandler, Nov 20 2011*)

Formula

a(n) = A015910(A015911(n)).

Extensions

Edited by Ray Chandler at the suggestion of Jon E. Schoenfield, Nov 20 2011