proposed
approved
proposed
approved
editing
proposed
a(3)=19 because 19 is prime and 19 + (floor(sqrt(19)) = 19 + (floor(4.358898944)) = 19 + 4 = 23, which is prime.
approved
editing
proposed
approved
editing
proposed
a(3)=19 because 19 is prime and 19 + (floor(Sqrtsqrt(19)) = 19 + (floor(4.358898944)) = 19 + 4 = 23, which is prime.
proposed
editing
editing
proposed
Primes p such that p + floor(Sqrtsqrt(p)) is prime.
a(3)=19 because 19 is prime and 19 + (floor(Sqrt(19)) = 19 + (floor(4.358898944)) = 19 + 4 = 23 , which is prime.
f[n_]:=Floor[Sqrt[n]]+n; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, p]], {n, 7!}]; lst [From _(* _Vladimir Joseph Stephan Orlovsky_, Feb 25 2010] *)
approved
editing
f[n_]:=Floor[Sqrt[n]]+n; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, p]], {n, 7!}]; lst [From _Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), _, Feb 25 2010]
More terms from _R. J. Mathar (mathar(AT)strw.leidenuniv.nl), _, Oct 31 2008