OFFSET
1,1
COMMENTS
n such that floor(sqrt(10^(2*n-1))) is prime (1, 2, 7, 18, 33, ...) are given in A136583.
This sequence is the list of prime terms in A017934.
The next term has 206 digits. - Harvey P. Dale, Dec 06 2023
MATHEMATICA
Module[{nn=50, sq10}, sq10=RealDigits[Sqrt[10], 10, nn][[1]]; Select[FromDigits/@Table[Take[sq10, n], {n, nn}], PrimeQ]] (* Harvey P. Dale, Dec 06 2023 *)
PROG
(Magma) // by Jason Kimberley, Aug 2011
for n in [1..499 by 2] do
f := Isqrt(10^n);
if IsPrime(f) then
printf "%o, ", f;
end if;
end for;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Jan 09 2008
STATUS
approved