OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
filter:= proc(n) local k, v;
v:= add(k[2]*(1+k[1]), k = ifactors(n)[2]);
isprime(v) and isprime(n+v)
end proc:
select(filter, [seq(i, i=2..2000, 2)]);
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Feb 25 2021
STATUS
approved