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!)
A153375 Larger of two consecutive prime numbers such that p0+p1=average of twin prime pairs and p0*p1+7=average of twin prime pairs. 17
7, 17, 1049, 2767, 3347, 22391, 45989, 88237, 92333, 135241, 154157, 233327, 287159, 344231, 365297, 392737, 479639, 549749, 574367, 650591, 659437, 666089, 749807, 786959, 869069, 959737, 1023541, 1045043, 1161851, 1180427, 1193041 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

5+7=12+-1=primes, 5*7+7=42+-1=primes; 13+17=30+-1=primes, 13*17+7=228+-1=primes;...

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

MATHEMATICA

lst={}; Do[p0=Prime[n]; p1=Prime[n+1]; a=p0+p1; b=p0*p1+7; If[PrimeQ[a-1]&&PrimeQ[a+1]&&PrimeQ[b-1]&&PrimeQ[b+1], AppendTo[lst, p1]], {n, 9!}]; lst

atpQ[{a_, b_}]:=Module[{t=a+b, p=a*b}, AllTrue[{t-1, t+1, p+6, p+8}, PrimeQ]]; Transpose[ Select[Partition[Prime[Range[100000]], 2, 1], atpQ]][[2]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 09 2014 *)

CROSSREFS

Cf. A099349, A153374

Sequence in context: A113765 A269447 A013540 * A001145 A093139 A177366

Adjacent sequences:  A153372 A153373 A153374 * A153376 A153377 A153378

KEYWORD

nonn

AUTHOR

Vladimir Joseph Stephan Orlovsky, Dec 24 2008

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 25 20:58 EDT 2020. Contains 334597 sequences. (Running on oeis4.)