OFFSET
1,1
EXAMPLE
22 is the first integer that can be written in exactly two ways as the sum of two congruent primes modulo 3: 22 = 5 + 17 (5 = 17 mod 3) and 22 = 11 + 11 (order of addition is ignored). Hence a(2) = 22.
MATHEMATICA
f[n_] := Module[{a, d, i}, a = {}; u = Floor[n/2]; For[i = 1, i <= u, i++, If[PrimeQ[i] && PrimeQ[n - i] && Mod[i, 3] == Mod[n - i, 3], a = Append[a, {n, i, n - i}]]]; a]; a = Table[0, {50}]; Do[l = Length[ f[n]]; If[l < 51 && a[[l]] == 0, a[[l]] = n], {n, 1, 2000}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Dec 13 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Dec 19 2002
STATUS
approved