OFFSET
1,1
LINKS
R. J. Mathar, Table of n, a(n) for n=1..287
FORMULA
EXAMPLE
a(3) = 41 because 41 = 11+13+17 and 41 = 12+14+15.
MATHEMATICA
a = {}; For[n = 2, n < 10000, n++, If[ ! PrimeQ[n], AppendTo[a, n + Select[Range[n + 1, n + 10], ! PrimeQ[ # ] &][[1]] + Select[Range[n + 1, n + 10], ! PrimeQ[ # ] &][[2]]]]]; b = Table[Prime[i] + Prime[i + 1] + Prime[i + 2], {i, 1, 10000}]; Select[Intersection[a, b], PrimeQ[ # ] &] (* Stefan Steinerberger, Dec 30 2007 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Randy L. Ekl, Dec 28 2007
EXTENSIONS
More terms from Stefan Steinerberger, Dec 30 2007
STATUS
approved