OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3)=107 is a term because 107 and 109 are prime while 108=2^2*3^3 and 2*2+3*3=13 is prime.
MAPLE
TP:= select(t -> isprime(t) and isprime(t+2), [seq(i, i=5..1000, 6)]):
select(p -> isprime(add(t[1]*t[2], t=ifactors(p+1)[2])), TP);
MATHEMATICA
Select[Partition[Prime[Range[1250]], 2, 1], #[[2]]-#[[1]]==2&&PrimeQ[Total[ Times@@@ FactorInteger[#[[1]]+1]]]&][[All, 1]] (* Harvey P. Dale, Jul 10 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Oct 08 2020
STATUS
approved