OFFSET
1,2
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,hard,more,changed
AUTHOR
Lekraj Beedassy, Jan 09 2008
EXTENSIONS
a(6)-a(8) from Robert G. Wilson v, Jan 20 2008
a(9)-a(10) from Jason Kimberley, Aug 19 and Sep 03 2011
a(11) from Michael S. Branicky, Jun 12 2026
STATUS
approved
