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,1

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A015911.

Sequence in context: A194772 A193546 A268255 * A253973 A200080 A347124

Adjacent sequences: A124962 A124963 A124964 * A124966 A124967 A124968

Keyword

nonn

Author

Zak Seidov, Nov 14 2006, corrected Nov 25 2006

Extensions

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

Status

approved