|
|
A033983
|
|
Integers n such that 2^n == 15 (mod n).
|
|
12
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
No other terms below 10^14.
|
|
LINKS
|
|
|
MATHEMATICA
|
m = 15; Join[Select[Range[m], Divisible[2^# - m, #] &],
Select[Range[m + 1, 10^3], PowerMod[2, #, #] == m &]] (* Robert Price, Oct 08 2018 *)
|
|
CROSSREFS
|
Cf. A015910, A015911, A033981, A050259, A124965, A124974, A124977, A015910, A015911, A033982, A125000.
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
Joe K. Crump (joecr(AT)carolina.rr.com)
|
|
EXTENSIONS
|
One more term from Joe K. Crump (joecr(AT)carolina.rr.com), Jun 20 2000
|
|
STATUS
|
approved
|
|
|
|