OFFSET
1,2
COMMENTS
MATHEMATICA
rd = RealDigits[Sqrt[10], 10, 10^5][[1]]; Do[ If[ PrimeQ@ FromDigits@ Take[rd, n], Print@n], {n, 10^5}] (* Robert G. Wilson v, Jan 20 2008 *)
PROG
(Magma) for n in [1..10^6] do if IsPrime(Isqrt(10^(2*n-1))) then printf "%o, ", n; end if; end for; // Jason Kimberley, Sep 03 2011
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Lekraj Beedassy, Jan 09 2008
EXTENSIONS
a(6) - a(8) from Robert G. Wilson v, Jan 20 2008
Probable terms a(9) and a(10) from Jason Kimberley, Aug 19 and Sep 03 2011
STATUS
approved