OFFSET
1,1
EXAMPLE
a(3)=19 because 19 is prime and 19 + floor(sqrt(19)) = 19 + floor(4.358898944) = 19 + 4 = 23, which is prime.
MATHEMATICA
f[n_]:=Floor[Sqrt[n]]+n; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, p]], {n, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Feb 25 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Chuck Seggelin (barkeep(AT)plastereddragon.com), Jul 08 2003
EXTENSIONS
More terms from R. J. Mathar, Oct 31 2008
STATUS
approved