This site is supported by donations to The OEIS Foundation.

"Email this user" was broken Aug 14 to 9am Aug 16. If you sent someone a message in this period, please send it again.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A126096 Primes that are the arithmetic mean of four successive primes. 1
 127, 139, 149, 181, 241, 431, 967, 1021, 1031, 1061, 1597, 1759, 1913, 2113, 2437, 2593, 2833, 2953, 3769, 3793, 3947, 4219, 4261, 4463, 4603, 5011, 5869, 5923, 6449, 6701, 6959, 7103, 7489, 7549, 7727, 8273, 8803, 8839, 9137, 9241, 9421, 9931, 10069 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Zak Seidov, Table of n, a(n) for n = 1..3000 EXAMPLE 181 is in the sequence because it is prime and is the arithmetic mean of the consecutive primes 173, 179, 181 and 191. MAPLE a:=proc(n) local nn: nn:=(ithprime(n)+ithprime(n+1)+ithprime(n+2)+ithprime(n+3))/4: if type(nn, integer)=true and isprime(nn)=true then nn else fi end: seq(a(n), n=1..1300); # Emeric Deutsch, Mar 07 2007 MATHEMATICA lst={}; Do[If[PrimeQ[p=(Prime[n]+Prime[n+1]+Prime[n+2]+Prime[n+3])/4], AppendTo[lst, p]], {n, 8!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jul 28 2009 *) pr=Prime[Range[114000(* for first 3015 terms *)]]; Select[Mean/@Partition[pr, 4, 1], PrimeQ] (* Zak Seidov, Apr 22 2011 *) CROSSREFS Cf. A102655 (numbers that are the arithmetic mean of four successive primes). Sequence in context: A255227 A153815 A194634 * A164966 A178088 A006285 Adjacent sequences:  A126093 A126094 A126095 * A126097 A126098 A126099 KEYWORD nonn AUTHOR Zak Seidov, Mar 03 2007 EXTENSIONS More terms from Emeric Deutsch, Mar 07 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 | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.