cp's OEIS Frontend

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.

A156223 Numbers that are products of distinct terms in A000312.

This page as a plain text file.
%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