OFFSET
1,1
COMMENTS
Primes p such that the multiplicative order of 10 (mod p) is prime. - Joerg Arndt, Oct 26 2014
Together with 3, complement in primes of A249330. - Arkadiusz Wesolowski, Oct 25 2014
LINKS
Ray Chandler, Table of n, a(n) for n = 1..10000
EXAMPLE
1/37 = 0. 027 027 ... with period = 3, hence 37 is in the sequence.
MATHEMATICA
Select[Prime[Range[500]], PrimeQ[MultiplicativeOrder[10, #]]&] (* Ray Chandler, Oct 31 2011 *)
PROG
(PARI) f(n)=if(n<4, n==2, znorder(Mod(10, prime(n))));
for(n=1, 100, if(isprime(f(n))==1, print1(prime(n), ", ")))
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Benoit Cloitre, Jul 26 2002
STATUS
approved