A131581 The next prime greater than the square root of 10^n.
2, 5, 11, 37, 101, 317, 1009, 3163, 10007, 31627, 100003, 316241, 1000003, 3162283, 10000019, 31622777, 100000007, 316227767, 1000000007, 3162277669, 10000000019, 31622776621, 100000000003, 316227766069, 1000000000039
Offset: 0
Programs
-
Mathematica
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; Table[ NextPrim@ Floor@ Sqrt[10^n], {n, 0, 25}] Table[NextPrime[Sqrt[10^n]],{n,0,30}] (* Harvey P. Dale, Aug 15 2017 *)
Formula
a(n) = sqrt(A175733(n+1)). [From Jaroslav Krizek, Aug 24 2010]
Comments