OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
EXAMPLE
655 = 5*131 and 5+131+1 is prime, so 655 is a term.
MATHEMATICA
With[{nn = 54}, Take[#, nn] &@ Union@ Flatten@ Table[Function[p, Map[Times @@ # &@ # &, #] &@ Select[Map[{p, #} &, Prime@ Range[PrimePi@ p - 1]], PrimeQ[Total@ # + 1] &]]@ Prime@ n, {n, nn + 4}]] (* Michael De Vlieger, Aug 01 2017 *)
With[{nn=60}, Take[Times@@@Select[Subsets[Prime[Range[nn]], {2}], PrimeQ[ Total[ #]+ 1]&]//Union, nn]] (* Harvey P. Dale, Aug 02 2017 *)
PROG
(Python)
from sympy import factorint, isprime
A290435_list = [n for n in range(2, 10**5) if sum(factorint(n).values()) == len(factorint(n)) == 2 and isprime(1+sum(factorint(n).keys()))]
(PARI) isok(n) = (bigomega(n)==2) && (omega(n)==2) && isprime(1+vecsum(factor(n)[, 1])); \\ Michel Marcus, Aug 02 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Chai Wah Wu, Aug 01 2017
STATUS
approved