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 A156223 #9 Nov 24 2020 10:25:11 %S A156223 1,4,27,108,256,1024,3125,6912,12500,27648,46656,84375,186624,337500, %T A156223 800000,823543,1259712,3200000,3294172,5038848,11943936,16777216, %U A156223 21600000,22235661,47775744,67108864,86400000,88942644,145800000,210827008,322486272,387420489,452984832 %N A156223 Numbers that are products of distinct terms in A000312. %H A156223 Amiram Eldar, <a href="/A156223/b156223.txt">Table of n, a(n) for n = 1..10000</a> %e A156223 a(1) = 1 = 1^1. %e A156223 a(2) = 4 = 2^2. %e A156223 a(3) = 108 = 2^2 * 3^3. %e A156223 ... %e A156223 a(20) = 5038848 = 2^2 * 3^3 * 6^6. %t A156223 seq[max_] := Module[{kmax = 1, s = {1}}, While[kmax^kmax < max, kmax++]; Do[s = Select[Union[s, k^k*s], # <= max &], {k, 1, kmax}]; s]; seq[10^8] (* _Amiram Eldar_, Nov 24 2020 *) %Y A156223 Cf. A000312. %K A156223 nonn %O A156223 1,2 %A A156223 _Gabriel C. Benamy_, Feb 06 2009 %E A156223 More terms from _Amiram Eldar_, Nov 24 2020