OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..3016
EXAMPLE
a(3) = 7 is a term because A228553(7) = 82 = 2*41 and 41 is prime.
MAPLE
f:= proc(n)
local S;
S:= select(t -> isprime(t) and isprime(2*n-t), [seq(i, i=3..n, 2)]);
add(t*(2*n-t), t=S)
end proc:
f(2):= 4:
filter:= proc(t) local v; v:= f(t); v::even and isprime(v) end proc:
select(filter, [$1..2000]);
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Nov 29 2020
STATUS
approved