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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A094933 Primes prime(k) such that (prime(k-1) + prime(k+1) + prime(k+2))/prime(k) = 3. 1
 127, 149, 431, 967, 1031, 1061, 1597, 2437, 2833, 2953, 3793, 5923, 6449, 6701, 6959, 7103, 8803, 11467, 11617, 11717, 11923, 12611, 13291, 13327, 13397, 13679, 13721, 14533, 14713, 15787, 16087, 17417, 17921, 18539, 20021, 21269, 21467, 22027 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Robert Israel, Table of n, a(n) for n = 1..10000 EXAMPLE 127 is OK since 127 is p(31) and (p(n-1) + p(n+1)+ p(n+2))/p(n)=(113+131+137)/127=3. - Zak Seidov, Aug 04 2006 MAPLE p:= 2: q:= 3: r:= 5: s:= 7: count:= 0: Res:= NULL: while count < 100 do   if p + r + s = 3*q then count:= count+1; Res:= Res, q fi;   p:= q; q:= r; r:= s; s:= nextprime(s) od: Res; # Robert Israel, May 06 2019 MATHEMATICA a=Table[If[(Prime[n-3]+Prime[n-2]+Prime[n-1]+Prime[n])/4-Prime[n-2]==0, Prime[n-2], 0], {n, 4, 2004}] a0=Delete[Union[Sort[a]], 1] Select[Prime[Range[2, 3000]], Prime[PrimePi[ # ]-1]+Prime[PrimePi[ # ]+1]+Prime[PrimePi[ # ]+2]==3#&] (* Zak Seidov, Aug 04 2006 *) PROG (MAGMA) [NthPrime(n):n in [2..3000]|NthPrime(n-1)+NthPrime(n+1)+NthPrime(n+2)- 3*NthPrime(n) eq 0]; // Marius A. Burtea, May 06 2019 (MATLAB) p=primes(30000); m=1; for u=2:length(p)-2   if p(u-1)+p(u+1)+p(u+2)-3*p(u)==0;      sol(m)=p(u);  m=m+1;   end end sol % Marius A. Burtea, May 06 2019 CROSSREFS Cf. A119381. Sequence in context: A164966 A178088 A006285 * A156702 A180536 A342801 Adjacent sequences:  A094930 A094931 A094932 * A094934 A094935 A094936 KEYWORD easy,nonn AUTHOR Roger L. Bagula, Jun 17 2004 EXTENSIONS More terms from Zak Seidov, Aug 04 2006 Edited by N. J. A. Sloane, Aug 08 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.

Last modified June 24 17:51 EDT 2021. Contains 345419 sequences. (Running on oeis4.)