|
| |
|
|
A126096
|
|
Primes which 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; 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 it 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 (deutsch(AT)duke.poly.edu), 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 [From Vladimir Orlovsky (4vladimir(AT)gmail.com), 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 which are the arithmetic mean of four successive primes.
Sequence in context: A133781 A153815 A194634 * A164966 A178088 A006285
Adjacent sequences: A126093 A126094 A126095 * A126097 A126098 A126099
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)gmail.com), Mar 03 2007
|
|
|
EXTENSIONS
| More terms from Emeric Deutsch (deutsch(AT)duke.poly.edu), Mar 07 2007
|
| |
|
|
