OFFSET
1,1
COMMENTS
Primes prime(k) such that A103274(k) is prime.
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
EXAMPLE
a(3) = 19 because there are 2 ways: 19 = 2*3+13 = 2*7+5, and 2 is prime.
MAPLE
filter:= proc(p) local q, count;
q:= 1; count:= 0;
do
q:= nextprime(q);
if 2*q >= p then return isprime(count) fi;
if isprime(p-2*q) then count:= count+1 fi
od
end proc:
select(filter, [seq(ithprime(i), i=1..1000)]);
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Mar 11 2021
STATUS
approved