%I #12 Oct 31 2013 12:09:44
%S 2,5,11,17,37,53,89,71,101,179,137,193,233,257,251,401,311,373,347,
%T 457,661,479,547,599,617,641,683,907,881,773,827,809,941,1033,977,
%U 1289,1201,1187,1229,1223,1277,1361,1597,1493,1447,1499,1451,1549,1487,1709,1933
%N Least prime representable as the arithmetic mean of two other primes in n different ways.
%C a(n)=A000040(A137700(n)); A071681(A137700(n))=n and A071681(m)<>n for m < A137700(n). - _Reinhard Zumkeller_, Feb 07 2008
%H Robert G. Wilson v, <a href="/A126204/b126204.txt">Table of n, a(n) for n = 0..11300</a>
%t f[n_] := Block[{c = 0, k = PrimePi@n - 1}, While[k > 0, If[ PrimeQ[2n - Prime@k], c++ ]; k-- ]; c]; t = Table[0, {1000}]; Do[ p = Prime@n; a = f@p; If[a < 1001 && t[[a]] == 0, t[[a]] = p; Print[{a, p}]], {n, 8900}]
%Y Cf. A071681.
%K nonn
%O 0,1
%A _Robert G. Wilson v_, Mar 22 2007
%E Start of b-file modified to match sequence by _N. J. A. Sloane_, Aug 31 2009
|