%I #6 Jul 24 2017 17:29:56
%S 4,6,9,1,1,1,2,2,2,2,3,3,3,3,3,4,4,5,5,5,5,6,6,6,7,7,8,8,8,8,9,9,9,9,
%T 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,
%U 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
%N Initial digits of semiprimes in decimal representation.
%C a(n) = A000030(A001358(n)).
%H Reinhard Zumkeller, <a href="/A239634/b239634.txt">Table of n, a(n) for n = 1..10000</a>
%t First[IntegerDigits[#]]&/@Select[Range[300],PrimeOmega[#]==2&] (* _Harvey P. Dale_, Jul 24 2017 *)
%o (Haskell)
%o a239634 = a000030 . a001358
%Y Cf. A239639 (run lengths), A106146 (last digits).
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Mar 23 2014