|
|
A116621
|
|
Positive integers n such that 13^n == 1 (mod n).
|
|
21
|
|
|
1, 2, 3, 4, 6, 8, 9, 12, 14, 16, 18, 20, 24, 27, 28, 32, 36, 40, 42, 48, 54, 56, 60, 64, 68, 72, 80, 81, 84, 96, 98, 100, 108, 112, 120, 126, 128, 136, 140, 144, 160, 162, 168, 180, 183, 192, 196, 200, 204, 216, 220, 224, 240, 243, 252, 256, 272, 280, 288, 294, 300, 320
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Join[{1}, Select[Range[1, 750], Mod[13^#, #] == 1 &]] (* G. C. Greubel, Nov 19 2017 *)
Join[{1}, Select[Range[320], PowerMod[13, #, #] == 1 &]] (* Robert Price, Apr 10 2020 *)
|
|
PROG
|
(PARI) isok(n) = Mod(13, n)^n == 1; \\ Michel Marcus, Nov 19 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|