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 A111730 #22 Jun 07 2024 05:39:58
%S A111730 64,96,4644,4944,6664,6966,9464,9996,44464,44944,46496,46644,49644,
%T A111730 49696,64449,64496,66444,66696,69444,69496,69966,94496,94644,94696,
%U A111730 96496,96944,99666,99944,444496,444664,444696,444996,446664,446944,446964,449469,449694,449964,464496,464646,464664,464994,469464,494494,494944,494949,494964,496464,499446,499944,644464,644944
%N A111730 6-almost primes with semiprime digits (digits 4, 6, 9 only).
%e A111730 64 = 2^6
%e A111730 96 = 2^5 * 3
%e A111730 4644 = 2^2 * 3^3 * 43
%e A111730 4944 = 2^4 * 3 * 103
%e A111730 6664 = 2^3 * 7^2 * 17
%e A111730 6966 = 2 * 3^4 * 43
%e A111730 9464 = 2^3 * 7 * 13^2
%e A111730 9996 = 2^2 * 3 * 7^2 * 17
%e A111730 44464 = 2^4 * 7 * 397
%e A111730 44944 = 2^4 * 53^2 = 212^2
%e A111730 46496 = 2^5 * 1453
%t A111730 Select[Range[645000],ContainsOnly[IntegerDigits[#],{4,6,9}]&&PrimeOmega[#]==6&] (* _James C. McMahon_, Jun 05 2024 *)
%o A111730 (PARI) isok(k) = (bigomega(k) == 6) && (#setminus(Set(digits(k)), Set([4,6,9])) == 0); \\ _Michel Marcus_, Apr 13 2022
%Y A111730 Intersection of A046306 and A107665.
%Y A111730 Cf. A001358, A107342, A111494, A111496, A111697.
%K A111730 base,less,easy,nonn
%O A111730 1,1
%A A111730 _Jonathan Vos Post_, Nov 18 2005
%E A111730 Missing a(1)=64 prepended and several terms corrected by _Georg Fischer_ and _Michel Marcus_, Apr 13 2022