A136582 Sqrt(10)-primes: primes obtained by concatenating the first digits in the decimal expansion of sqrt(10).
3, 31, 3162277, 316227766016837933, 316227766016837933199889354443271
Offset: 1
Programs
-
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;
-
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 *)
Comments