OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 461 is a term because it is prime, the next prime is 463, and A001414(461+463) = 25 = 5^2 where 5 is prime.
MAPLE
spf:= proc(n) local t; add(t[1]*t[2], t=ifactors(n)[2]) end proc:
filter:= proc(p) local t; t:= spf(p+nextprime(p));
issqr(t) and isprime(sqrt(t)) end proc:
select(filter, [seq(ithprime(i), i=1..1000)]);
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Mar 23 2021
STATUS
approved