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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A096704 Balanced primes of order twelve. 16
157, 173, 709, 827, 1999, 2689, 6803, 11351, 11489, 12757, 15277, 33071, 37967, 38449, 46751, 47303, 51599, 53113, 56779, 57269, 59107, 62731, 62743, 62791, 63649, 77023, 79357, 81553, 81649, 81953, 85621, 96377, 108139, 113983, 117839 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Muniru A Asiru, Table of n, a(n) for n = 1..5000

EXAMPLE

157 is a member because 157 = (97 + 101 + 103 + 107 + 109 + 113 + 127 + 131 + 137 + 139 + 149 + 151 + 157 + 163 + 167 + 173 + 179 + 181 + 191 + 193 + 197 + 199 + 211 + 223 + 227)/25 = 3925/25.

MAPLE

P:=proc(q) local n; for n from 13 to q do

if add(ithprime(n-k), k=-12..12)=25*ithprime(n) then print(ithprime(n));

fi; od; end: P(10^6); # Paolo P. Lava, Mar 17 2014

MATHEMATICA

Transpose[ Select[ Partition[ Prime[ Range[12500]], 25, 1], #[[13]] == (#[[1]] + #[[2]] + #[[3]] + #[[4]] + #[[5]] + #[[6]] + #[[7]] + #[[8]] + #[[9]] + #[[10]] + #[[11]] + #[[12]] + #[[14]] + #[[15]] + #[[16]] + #[[17]] + #[[18]] + #[[19]] + #[[20]] + #[[21]] + #[[22]] + #[[23]] + #[[24]] + #[[25]])/24 &]][[13]]

PROG

(GAP) P:=Filtered([1..150000], IsPrime);;

a:=List(Filtered(List([0..12000], k->List([1..25], j->P[j+k])), i->Sum(i)/25=i[13]), m->m[13]); # Muniru A Asiru, Mar 04 2018

CROSSREFS

Cf. A096693, A006562, A082077, A082078, A082079, A096697, A096698, A096699, A096700, A096701, A096702, A096703.

Sequence in context: A090851 A045230 A180551 * A178091 A178092 A140035

Adjacent sequences:  A096701 A096702 A096703 * A096705 A096706 A096707

KEYWORD

nonn

AUTHOR

Robert G. Wilson v, Jun 26 2004

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 20 07:28 EST 2020. Contains 332067 sequences. (Running on oeis4.)