OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
1217 (prime), 2227 = 17*131 (semiprime), 3237 = 3*13*83 (triprime).
MATHEMATICA
s = {}; p = 2; Do[ p = NextPrime[p]; id = IntegerDigits[p]; id2 = id3 = id;
Do[If[id[[k]] == 1, id2[[k]] = 2; id3[[k]] = 3], {k, Length[id]}]; fd2 = FromDigits[id2]; fd3 = FromDigits[id3]; If[2 == PrimeOmega[fd2] && 3 == PrimeOmega[fd3], AppendTo[s, p]], {2000}]; s
Select[Prime[Range[1500]], PrimeOmega[FromDigits[IntegerDigits[#]/.(1->2)]]==2&&PrimeOmega[ FromDigits[IntegerDigits[#]/.(1->3)]]==3&] (* Harvey P. Dale, Dec 17 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Oct 14 2022
STATUS
approved