This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A357896 #13 Nov 02 2022 07:28:34 %S A357896 8,44,66,75,99,116,125,138,147,165,170,174,242,246,255,273,279,282, %T A357896 318,332,345,354,363,369,387,404,426,435,477,507,530,534,549,561,578, %U A357896 596,602,606,615,639,642,651,657,668,705,710,741,747,822,873,903,909,927,938,956,963,981,1025,1034,1038,1052,1065,1070,1074 %N A357896 Additive triprimes. %C A357896 Triprimes for which the sum of the digits is also a triprime. %e A357896 75 = 3*5*5 and 5 + 7 = 12 = 2*2*3 (both are product of 3 primes). %t A357896 s = Select[Range[8, 1500], 3 == PrimeOmega[#] &]; s = Select[s, 3 == PrimeOmega[Total[IntegerDigits[#]]] &] %o A357896 (PARI) istp(k) = bigomega(k)==3; \\ A014612 %o A357896 isok(k) = istp(k) && istp(sumdigits(k)); \\ _Michel Marcus_, Nov 02 2022 %Y A357896 Cf. A007953, A014612, A046704, A118688. %K A357896 nonn,base %O A357896 1,1 %A A357896 _Zak Seidov_, Oct 18 2022