OFFSET
1,1
COMMENTS
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[ Prime@ Range@ 2300, MultiplicativeOrder[10, #] == # - 1 && MultiplicativeOrder[10, # + 2] == # + 1 &]
Select[Partition[Prime[Range[2500]], 2, 1], #[[2]]-#[[1]]==2&& PrimitiveRoot[ #, 10]=={10, 10}&][[All, 1]] (* Harvey P. Dale, Dec 02 2017 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Robert G. Wilson v, Aug 18 2014
STATUS
approved