110 people attended OEIS-50 (videos, suggestions); annual fundraising drive to start soon (donate); editors, please edit! (stack is over 300), your editing is more valuable than any donation.
Table of n, a(n) for n=1..45.
13 is there because it is prime and 4*13 = 23+29.
If[PrimeQ[P = (Prime[k] + Prime[k + 1])/4], Print[P]]
Sequence in context: A215359 A115898 A215350 * A215386 A143871 A225517
Adjacent sequences: A118131 A118132 A118133 * A118135 A118136 A118137
Anton Vrba (antonvrba(AT)yahoo.com), May 13 2006
Edited by Don Reble (djr(AT)nk.ca), Jul 23 2006