OFFSET
1,1
COMMENTS
A prime p has 10 as a primitive root iff the length of the period of the decimal expansion of 1/p is p-1.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
test[p_] := MultiplicativeOrder[10, p]===p-1; Select[Range[2, 2500], test[Prime[ # ]]&&test[Prime[ #+1]]&&test[Prime[ #+2]]&&!test[Prime[ #-1]]&&!test[Prime[ #+3]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jeff Burch, Mar 23 2001
EXTENSIONS
Edited by Dean Hickerson, Jun 17 2002
STATUS
approved