login
This site is supported by donations to The OEIS Foundation.

 

Logo

"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.

License Agreements, Terms of Use, Privacy Policy .

Last modified August 20 03:34 EDT 2017. Contains 290823 sequences.