OFFSET
1,2
COMMENTS
LINKS
Eric Weisstein's World of Mathematics, Consecutive Number Sequences
MATHEMATICA
cns[n_]:=FromDigits[Flatten[IntegerDigits[Table[k+Floor[1/2+Sqrt[k]], {k, 1, n}]]]]
Select[Table[cns[n], {n, 6100}], PrimeQ]
PROG
(PARI) is(n)=my(s=""); for(k=1, n, s=Str(s, (sqrtint(4*k)+1)\2 + k)); ispseudoprime(eval(s)) \\ Charles R Greathouse IV, Mar 10 2017
CROSSREFS
KEYWORD
base,nonn,more
AUTHOR
XU Pingya, Mar 10 2017
STATUS
approved