|
|
A050259
|
|
Numbers n such that 2^n == 3 (mod n).
|
|
27
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Terms were computed: a(2) by the Lehmers, a(3) by Max Alekseyev, a(4) and a(5) by Joe K. Crump, a(?) = 63130707451134435989380140059866138830623361447484274774099906755 by P.-L. Montgomery.
|
|
REFERENCES
|
R. Daniel Mauldin and S. M. Ulam, Mathematical problems and games. Adv. in Appl. Math. 8 (1987), pp. 281-344.
|
|
LINKS
|
Eric Weisstein's World of Mathematics, 2
|
|
MATHEMATICA
|
m = 2; Join[Select[Range[m], Divisible[2^# - m, #] &],
Select[Range[m + 1, 10^6], PowerMod[2, #, #] == m &]] (* Robert Price, Oct 08 2018 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more,hard
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|