A125000 Integers n such that 2^n == 19 (mod n).

1, 17, 2873, 10081, 3345113, 420048673, 449349533, 2961432773, 19723772249, 821451792317, 1207046362769

Offset

1,2

Comments

No other terms below 10^15. Some larger terms: 500796684074966733196301. - Max Alekseyev, May 23 2012

Links

Table of n, a(n) for n=1..11.

Mathematica

m = 19; Join[Select[Range[m], Divisible[2^# - m, #] &],
Select[Range[m + 1, 10^6], PowerMod[2, #, #] == m &]] (* Robert Price, Oct 08 2018 *)

Crossrefs

Cf. A124974, A033981, A050259, A124977, A124965, A015911, A015910.

Sequence in context: A092814 A198594 A138199 * A228195 A032909 A367536

Adjacent sequences: A124997 A124998 A124999 * A125001 A125002 A125003

Keyword

nonn,more

Author

Zak Seidov, Nov 15 2006

Extensions

Terms 1, 17 prepended by Max Alekseyev, May 20 2011

a(8)-a(11) from Max Alekseyev, May 23 2012

Status

approved