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!)
A090121 Numbers n such that nextprime(n^3)-prevprime(n^3) = 4. 8
2, 129, 189, 369, 435, 549, 555, 561, 819, 1245, 1491, 1719, 1779, 1839, 1875, 1935, 2175, 2289, 2415, 2451, 2595, 2709, 2769, 3141, 3441, 4401, 4611, 4851, 5655, 5775, 6075, 6099, 6795, 6969, 7125, 7239, 7365, 8109, 8139, 8325, 8361, 8385, 8535, 8685, 9591 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Chai Wah Wu, Table of n, a(n) for n = 1..10000

FORMULA

Solutions to A077038(x) = 4.

EXAMPLE

n=129:{p=2146687,n^3=2146689,q=2146691}, q-p=4.

MATHEMATICA

pre[x_] := Prime[PrimePi[x]] nex[x_] := Prime[PrimePi[x]+1] de[x_] := Prime[PrimePi[x]+1]-Prime[PrimePi[x]] k=3; Do[If[Equal[Prime[PrimePi[n^k]+1]-Prime[PrimePi[n^k]], 4], Print[n]], {n, 2, 100000}]

lst={}; Do[m=n^3; If[PrimeQ[m-2]&&PrimeQ[m+2], AppendTo[lst, n]], {n, 0, 10^5}]; lst (* Vladimir Joseph Stephan Orlovsky, Sep 04 2008 *)

Select[Range[2, 6100], NextPrime[#^3]-NextPrime[#^3, -1]==4&] (* Harvey P. Dale, Sep 17 2017 *)

PROG

(PARI) is(n)=if(n%2, isprime(n^3-2) && isprime(n^3+2), n==2) \\ Charles R Greathouse IV, Feb 22 2018

CROSSREFS

Cf. A077038, A058043, A090122-A090125.

Sequence in context: A209248 A153425 A296060 * A003369 A303377 A258806

Adjacent sequences:  A090118 A090119 A090120 * A090122 A090123 A090124

KEYWORD

nonn

AUTHOR

Labos Elemer, Jan 12 2004

EXTENSIONS

More terms from Harvey P. Dale, Sep 17 2017

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 May 29 16:43 EDT 2020. Contains 334704 sequences. (Running on oeis4.)