A357896 Additive triprimes.

8, 44, 66, 75, 99, 116, 125, 138, 147, 165, 170, 174, 242, 246, 255, 273, 279, 282, 318, 332, 345, 354, 363, 369, 387, 404, 426, 435, 477, 507, 530, 534, 549, 561, 578, 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

Offset: 1

Author

Zak Seidov, Oct 18 2022

Keywords

• nonn
• base

Comments

Triprimes for which the sum of the digits is also a triprime.

Examples

			75 = 3*5*5 and 5 + 7 = 12 = 2*2*3 (both are product of 3 primes).
		

Crossrefs

Cf. A007953, A014612, A046704, A118688.

Programs

Mathematica

s = Select[Range[8, 1500], 3 == PrimeOmega[#] &]; s = Select[s, 3 == PrimeOmega[Total[IntegerDigits[#]]] &]

PARI

istp(k) = bigomega(k)==3; \\ A014612
isok(k) = istp(k) && istp(sumdigits(k)); \\ Michel Marcus, Nov 02 2022