Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Revision History for A086085

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Primes p such that p + floor(sqrt(p)) is prime.
(history; published version)
#13 by Alois P. Heinz at Sat Aug 24 18:16:56 EDT 2024
STATUS

proposed

approved

#12 by Jason Yuen at Sat Aug 24 17:51:50 EDT 2024
STATUS

editing

proposed

#11 by Jason Yuen at Sat Aug 24 17:51:41 EDT 2024
EXAMPLE

a(3)=19 because 19 is prime and 19 + (floor(sqrt(19)) = 19 + (floor(4.358898944)) = 19 + 4 = 23, which is prime.

STATUS

approved

editing

#10 by N. J. A. Sloane at Fri Jan 16 09:19:12 EST 2015
STATUS

proposed

approved

#9 by Michel Marcus at Fri Jan 16 09:17:06 EST 2015
STATUS

editing

proposed

#8 by Michel Marcus at Fri Jan 16 09:17:02 EST 2015
EXAMPLE

a(3)=19 because 19 is prime and 19 + (floor(Sqrtsqrt(19)) = 19 + (floor(4.358898944)) = 19 + 4 = 23, which is prime.

STATUS

proposed

editing

#7 by Jon E. Schoenfield at Fri Jan 16 09:12:54 EST 2015
STATUS

editing

proposed

#6 by Jon E. Schoenfield at Fri Jan 16 09:12:51 EST 2015
NAME

Primes p such that p + floor(Sqrtsqrt(p)) is prime.

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 [From _(* _Vladimir Joseph Stephan Orlovsky_, Feb 25 2010] *)

STATUS

approved

editing

#5 by Russ Cox at Sat Mar 31 12:38:08 EDT 2012
MATHEMATICA

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]

Discussion
Sat Mar 31
12:38
OEIS Server: https://oeis.org/edit/global/876
#4 by Russ Cox at Fri Mar 30 17:38:51 EDT 2012
EXTENSIONS

More terms from _R. J. Mathar (mathar(AT)strw.leidenuniv.nl), _, Oct 31 2008

Discussion
Fri Mar 30
17:38
OEIS Server: https://oeis.org/edit/global/190