OFFSET
1,6
LINKS
MATHEMATICA
Table[PowerMod[4, n-1, n], {n, 90}] (* Harvey P. Dale, Jun 09 2022 *)
PROG
(PARI) { for (n=1, 1000, write("b062175.txt", n, " ", 4^(n - 1)%n) ) } \\ Harry J. Smith, Aug 02 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, Jun 12 2001
STATUS
approved