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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A096704 Balanced primes of order twelve. 13
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

Table of n, a(n) for n=1..35.

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]]

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 | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified October 20 00:14 EDT 2014. Contains 248320 sequences.