OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 1 = 1^1.
a(2) = 4 = 2^2.
a(3) = 108 = 2^2 * 3^3.
...
a(20) = 5038848 = 2^2 * 3^3 * 6^6.
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Gabriel C. Benamy, Feb 06 2009
EXTENSIONS
More terms from Amiram Eldar, Nov 24 2020
STATUS
approved