login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A137772 Prime numbers p such that p +- ((p-1)/30030) are primes. 0
5945941, 19819801, 23963941, 42342301, 42882841, 56756701, 74414341, 169369201 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Note that 2*3*5*7*11*13 = 30030.

LINKS

Table of n, a(n) for n=1..8.

EXAMPLE

5945941+5945940/30030 = 5946139 and 5945941-5945940/30030 = 5945743, which are primes.

MATHEMATICA

w=30030; s=""; For[i=1, i<10^3*2, p=Prime[i]; If[PrimeQ[p-((p-1)/w)]&&PrimeQ[p+((p-1)/w)], (*Print[p, ":", p-((p-1)/w), ", ", p+((p-1)/w)]; *)s=s<>ToString[p]<>", "]; i++ ]; Print[s]

Select[Prime[Range[10550000]], PrimeQ[# + (# - 1) / 30030] && PrimeQ[# - (# - 1) / 30030] &] (* Vincenzo Librandi, Jun 15 2013 *)

PROG

(MAGMA) [p: p in PrimesInInterval(5, 120000000)| IsPrime((30031*p-1) div 30030 ) and IsPrime((30029*p+1) div 30030)]; // Vincenzo Librandi, Jun 15 2013

CROSSREFS

Sequence in context: A106809 A106810 A161008 * A205262 A183022 A183021

Adjacent sequences:  A137769 A137770 A137771 * A137773 A137774 A137775

KEYWORD

nonn

AUTHOR

Vladimir Joseph Stephan Orlovsky, Apr 27 2008, corrected May 10 2008

EXTENSIONS

More terms from Vincenzo Librandi, Jun 15 2013

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 18 15:40 EDT 2021. Contains 343089 sequences. (Running on oeis4.)