login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A066875 Numbers n such that prime(n+1) + prime(n-1) = 2*prime(n). 3
3, 16, 37, 40, 47, 55, 56, 74, 103, 108, 111, 119, 130, 161, 165, 185, 188, 195, 200, 219, 240, 272, 273, 292, 340, 359, 388, 420, 427, 465, 466, 509, 521, 554, 600, 606, 622, 630, 634, 668, 683, 684, 703, 710, 711, 734, 762, 792, 814, 822, 823, 830, 831, 883 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
The indices of primes that are equidistant from the two primes surrounding them. - Harvey P. Dale, May 16 2013
Indices of balanced primes (A006562). - Zak Seidov, Mar 03 2019
LINKS
FORMULA
a(n) = PrimePi(A006562(n)) = A000720(A006562(n)).
MATHEMATICA
Select[Range[2, 1000], Prime[ # ] == (Prime[ # + 1] + Prime[ # - 1])/2 &] (* Ray Chandler, Jan 09 2007 *)
PrimePi/@Transpose[Select[Partition[Prime[Range[900]], 3, 1], Length[ Union[ Differences[ #]]]==1&]][[2]] (* Harvey P. Dale, May 16 2013 *)
PROG
(PARI) { n=0; for (m=2, 10^10, if (prime(m+1) + prime(m-1) == 2*prime(m), write("b066875.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Apr 03 2010
(Magma) [n: n in [2..1000] | 2*NthPrime(n) eq (NthPrime(n-1) + NthPrime(n+1))]; // Vincenzo Librandi, Apr 09 2015
CROSSREFS
Cf. A000720 (primepi), A006562 (balanced primes).
Sequence in context: A217130 A173390 A173891 * A294419 A196596 A196573
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 21 2002
EXTENSIONS
Corrected by Ray Chandler, Jan 09 2007
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 03:51 EDT 2024. Contains 371264 sequences. (Running on oeis4.)