1,1

a = {}; Do[If[PrimePi[x + x^(1/2)] - PrimePi[x] == 0, AppendTo[a, x]], {x, 1, 249900000000000}]; a

Sequence in context: A108873 A002312 A106474 this_sequence A067064 A093722 A002381

Adjacent sequences: A127438 A127439 A127440 this_sequence A127442 A127443 A127444

nonn

Artur Jasinski (grafix(AT)csl.pl), Jan 14 2007