|
|
|
|
|
|
|
|
|
#13 by Charles R Greathouse IV at Thu Sep 08 08:45:33 EDT 2022
|
|
| PROG
|
(MAGMAMagma) [p: p in PrimesUpTo(1000)| IsPrime(54*p-1) and IsPrime(54*p+1) and IsPrime(60*p-1) and IsPrime(60*p+1)] // Vincenzo Librandi, Nov 24 2010
|
|
|
|
|
Discussion
|
| Thu Sep 08
| 08:45
| OEIS Server: https://oeis.org/edit/global/2944
|
|
|
|
|
|
|
#12 by Susanna Cuyler at Mon Feb 19 08:38:07 EST 2018
|
|
|
|
|
|
|
|
#11 by Jon E. Schoenfield at Mon Feb 19 08:15:31 EST 2018
|
|
|
|
|
|
|
|
#10 by Jon E. Schoenfield at Mon Feb 19 08:15:29 EST 2018
|
|
| EXAMPLE
|
54*1093- - 1= = 59021, 54*1093+ + 1= = 59023; 60*1093- - 1= = 65579, 60*1093+ + 1= = 65581;...; ...
|
|
| PROG
|
(MAGMA) [p: p in PrimesUpTo(1000)| IsPrime(54*p-1) and IsPrime(54*p+1) and IsPrime(60*p-1) and IsPrime(60*p+1)] [From)] // _Vincenzo V. Librandi, _, Nov 24 2010]
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#9 by Harvey P. Dale at Fri Sep 22 15:25:21 EDT 2017
|
|
|
|
|
|
|
|
#8 by Harvey P. Dale at Fri Sep 22 15:25:17 EDT 2017
|
|
| LINKS
|
Harvey P. Dale, <a href="/A138698/b138698.txt">Table of n, a(n) for n = 1..1000</a>
|
|
| MATHEMATICA
|
Select[Prime[Range[40000]], AllTrue[{54#+1, 54#-1, 60#+1, 60#-1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 22 2017 *)
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#7 by Russ Cox at Sat Mar 31 12:38:14 EDT 2012
|
|
| AUTHOR
|
_Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), _, May 15 2008
|
|
|
|
|
Discussion
|
| Sat Mar 31
| 12:38
| OEIS Server: https://oeis.org/edit/global/876
|
|
|
|
|
|
|
#6 by Russ Cox at Fri Mar 30 18:38:01 EDT 2012
|
|
| EXTENSIONS
|
More terms from _Vincenzo Librandi (vincenzo.librandi(AT)tin.it), _, Apr 01 2010
|
|
|
|
|
Discussion
|
| Fri Mar 30
| 18:38
| OEIS Server: https://oeis.org/edit/global/215
|
|
|
|
|
|
|
#5 by T. D. Noe at Wed Nov 24 11:12:04 EST 2010
|
|
|
|
|
|
|
|
#4 by Vincenzo Librandi at Wed Nov 24 04:22:14 EST 2010
|
|
| PROG
|
(MAGMA) [p: p in PrimesUpTo(1000)| IsPrime(54*p-1) and IsPrime(54*p+1) and IsPrime(60*p-1) and IsPrime(60*p+1)] [From V. Librandi, Nov 24 2010]
|
|
| EXTENSIONS
|
More terms from Vincenzo Librandi (vincenzo.librandi(AT)tin.it), Apr 01 2010
|
|
| STATUS
|
approved
proposed
|
|
|
|
|
|
