OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
39 is a semiprime and its multiplicative digital root 4 is also a semiprime.
MATHEMATICA
pod[n_] := Times @@ IntegerDigits[n]; multDigRoot[n_] := NestWhile[pod, n, # > 9 &]; Select[Range[1000], PrimeOmega[#] == 2 && PrimeOmega[multDigRoot[#]] == 2 &] (* Amiram Eldar, Feb 06 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), May 20 2006
STATUS
approved