OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
38 is a member of the sequence since 6^38 (mod 38) == 36.
MATHEMATICA
Select[Range@ 266, (p = PowerMod[6, #, #]) > 1 && IntegerQ@ Log[6, p] && CompositeQ[#] &] (* corrected by Amiram Eldar, Jul 24 2021 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Apr 17 2007
STATUS
approved