OFFSET
1,1
COMMENTS
Triprimes for which the sum of the digits is also a triprime.
EXAMPLE
75 = 3*5*5 and 5 + 7 = 12 = 2*2*3 (both are product of 3 primes).
MATHEMATICA
s = Select[Range[8, 1500], 3 == PrimeOmega[#] &]; s = Select[s, 3 == PrimeOmega[Total[IntegerDigits[#]]] &]
PROG
(PARI) istp(k) = bigomega(k)==3; \\ A014612
isok(k) = istp(k) && istp(sumdigits(k)); \\ Michel Marcus, Nov 02 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Oct 18 2022
STATUS
approved