OFFSET
1,1
COMMENTS
Resulting primes are: 17, 41, 71, 131, 281, 331, 353, 397, 449, 487, 563, 953, 1279, 1289, 1409, 1627. - Zak Seidov, May 08 2018
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
12 is a member because 12th prime is 37, 12th semiprime is 34 and 37 + 34 = 71 is prime.
MATHEMATICA
PrimeFactorExponentsAdded[n_] := Plus @@ Flatten[Table[ #[[2]], {1}] & /@ FactorInteger[n]]; sp = Select[Range[ 3700], PrimeFactorExponentsAdded[ # ] == 2 &]; p = Table[Prime[i], {i, Length[sp]}]; Select[ Range[ Length[sp]], PrimeQ[ sp[[ # ]] + p[[ # ]]] &] (* Robert G. Wilson v, Feb 24 2004 *)
Module[{nn=5000, sms, prs, len}, sms=Select[Range[nn], PrimeOmega[#]==2&]; len = Length[sms]; prs=Prime[Range[len]]; Select[Table[{n, prs[[n]], sms[[n]]}, {n, len}], PrimeQ[#[[2]]+#[[3]]]&][[All, 1]]] (* Harvey P. Dale, Feb 28 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 22 2004
EXTENSIONS
More terms from Robert G. Wilson v and Ray Chandler, Feb 24 2004
STATUS
approved