OFFSET
2,1
EXAMPLE
The second term is obtained by taking the trace of the matrix [[3,5,11],[3,7,13],[5,7,11]].
MAPLE
Primes:= select(isprime, {seq(2*i+1, i=1..10^5)}):
T:= 3:
for n from 2 to 100 do
R:= Primes intersect map(`+`, Primes, -2*n);
if nops(R) < n then break fi;
T:= T + R[n];
A[n]:= T;
od:
seq(A[n], n=2..100); # Robert Israel, Aug 06 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Samuel J. Erickson, Aug 06 2014
EXTENSIONS
Entry revised by Robert Israel, Aug 07 2014 and N. J. A. Sloane, Sep 30 2014
STATUS
approved