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 A321046 #22 Dec 04 2018 04:11:29
%S A321046 46,49,69,94,145,194,262,265,291,295,365,393,394,395,398,446,466,469,
%T A321046 545,565,591,597,649,662,669,695,699,767,794,842,862,865,866,895,943,
%U A321046 961,965,993,995,1006,1046,1059,1145,1154,1202,1205,1241,1255,1343,1345,1349,1354,1355,1501,1507,1541,1555,1642,1649,1655
%N A321046 Semiprimes for which the concatenation of the digits in the even positions and the concatenation of the digits in the odd positions are semiprimes.
%H A321046 Marius A. Burtea, <a href="/A321046/b321046.txt">Table of n, a(n) for n = 1..22530</a>
%e A321046 46 is a term because 46 = 2*23, 4 = 2*2 and 6 = 2*3 are semiprimes.
%e A321046 469 is a term because 469 = 7*67, 49 = 7*7 and 6 = 2*3 are semiprimes.
%e A321046 1145 is a term because 1145 = 5*229, 14 = 2*7 and 15 = 3*5 are semiprimes.
%e A321046 Also 38159 belongs to the sequence. In fact: 38159 = 11*3469, 319 = 11*29 and 85 = 5*17 are semiprimes.
%t A321046 spQ[n_] := Plus @@ Last /@ FactorInteger[n] == 2; ok[n_] := spQ[n] && Block[{d = IntegerDigits[n]},If[OddQ@ Length@ d, PrependTo[d, 0]]; AllTrue[ FromDigits /@ Transpose[ Partition[d, 2]], spQ]]; Select[ Range@ 1655, ok] (* _Giovanni Resta_, Oct 29 2018 *)
%Y A321046 Cf. A001358, A100484, A046315, A107342.
%K A321046 nonn,base
%O A321046 1,1
%A A321046 _Marius A. Burtea_, Oct 26 2018