A307845 Exponential unitary highly composite numbers: where the number of exponential unitary divisors (A278908) increases to a record.
1, 4, 36, 576, 14400, 705600, 57153600, 6915585600, 1168733966400, 337764116289600, 121932845980545600, 64502475523708622400, 40314047202317889000000, 33904113697149344649000000, 32581853262960520207689000000, 44604557116992952164326241000000, 74980260513665152588232411121000000
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..201
Programs
-
Mathematica
f[p_, e_] := 2^PrimeNu[e]; a[n_] := Times @@ (f @@@ FactorInteger[n]); s = {}; am = 0; Do[a1 = a[n]; If[a1 > am, am = a1; AppendTo[s, n]], {n, 1, 10^6}]; s
Formula
A278908(a(n)) = 2^(n-1).
Comments