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 A376739 #5 Oct 10 2024 15:30:12 %S A376739 2,6,18,40,108,224,480,1296,2688,5760,12800,31104,64512,138240,286720, %T A376739 614400,1492992,3096576,6422528 %N A376739 Main diagonal of A376738: a(n) is the n-th number which is the product of n (possibly non-distinct) primes having the same number of decimal digits. %C A376739 See A376738 for more information. %C A376739 First differs from A101695 at n = 10. %F A376739 a(n) = A376738(n,n). %t A376739 A376739[n_] := Module[{m = 2^n - 1}, Do[While[Total[(f = FactorInteger[++m])[[All, 2]]] != n || Length[Union[IntegerLength[f[[All, 1]]]]] > 1], n]; m]; %t A376739 Array[A376739, 15] %Y A376739 Cf. A101695, A376738. %K A376739 nonn,base,more %O A376739 1,1 %A A376739 _Paolo Xausa_, Oct 03 2024