OFFSET
1,1
COMMENTS
Interestingly, the initial terms of A040119 (Primes p such that x^4 = 10 has a solution mod p) are identical to the initial terms of this sequence except for 241 which is a term of A040119 but not of A186635. [John W. Layman, Feb 25 2011]
MAPLE
Ax := proc(n) local st:
st := ithprime(n):
if (modp(numtheory[order](10, st), 2) <> 0) then
RETURN(st)
fi: end: seq(Ax(n), n=1..200);
MATHEMATICA
Union[{2, 5}, Select[Prime[Range[200]], OddQ[Length[RealDigits[1/#][[1, 1]]]] &]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jani Melik, Feb 24 2011
STATUS
approved