OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..10460
EXAMPLE
211 is in the sequence because it is prime, and because 211 + (2 * 1 * 1) = 213 = 3 * 71 and 211 - (2 * 1 * 1) = 209 = 11 * 19 both are semiprimes.
461 is in the sequence because it is prime, and because 461 + (4 * 6 * 1) = 485 = 5 * 97 and 461 - (4 * 6 * 1) = 437 = 19 * 23 both are semiprimes.
MATHEMATICA
Select[Prime[Range[500]], PrimeOmega[(Times @@ IntegerDigits[#] + #)] == 2 && PrimeOmega[(Times @@ IntegerDigits[#] - #)] == 2 &]
PROG
(PARI)
forprime(p=10, 10^4, d=digits(p); pp=prod(i=1, #d, d[i]); if(bigomega(p+pp)==2&&bigomega(p-pp)==2, print1(p, ", "))) \\ Derek Orr, Aug 02 2014
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
K. D. Bajpai, Aug 02 2014
STATUS
approved