1,1

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

nonn

Anton Vrba (antonvrba(AT)yahoo.com), May 13 2006

Edited by Don Reble (djr(AT)nk.ca), Jul 23 2006

approved