OFFSET
1,2
LINKS
Joe Crump (joecr(AT)carolina.rr.com) Table of n, a(n) for n = 1..50
Joe K. Crump, 2^n mod n
MATHEMATICA
m = 18; Join[Select[Range[m], Divisible[2^# - m, #] &],
Select[Range[m + 1, 10^6], PowerMod[2, #, #] == m &]] (* Robert Price, Oct 08 2018 *)
PROG
(PARI) isok(n) = Mod(2, n)^n == 18; \\ Michel Marcus, Oct 09 2018
(Magma) [1, 2, 14] cat [n: n in [1..10^8] | Modexp(2, n, n) eq 18]; // Vincenzo Librandi, Apr 05 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Feb 15 2007
EXTENSIONS
More terms from Joe Crump (joecr(AT)carolina.rr.com), Mar 04 2007
1, 2 and 14 added by N. J. A. Sloane, Apr 23 2007
STATUS
approved