reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
1, 45, 54, 2025, 72, 2430, 90, 91125, 2916, 3240, 126, 109350, 144, 4050, 3888, 4100625, 180, 131220, 198, 145800, 4860, 5670, 234, 4920750, 5184, 6480, 157464, 182250, 288, 174960, 306, 184528125, 6804, 8100, 6480, 5904900, 360, 8910, 7776, 6561000, 396, 218700
f[p_, e_] := (9*(p+3))^e; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Oct 21 2023 *)
nonn,easy,mult
approved
editing
proposed
approved
editing
proposed
G. C. Greubel, <a href="/A167328/b167328.txt">Table of n, a(n) for n = 1..1000</a>
a[1] = 1; a[n_] := (fi = FactorInteger[n]; Times @@ ((fi[[All, 1]] + 3)^fi[[All, 2]])); Table[a[n]*9^PrimeOmega[n], {n, 1, 100}] (* G. C. Greubel, Jun 09 2016 *)
approved
editing
_Jaroslav Krizek (jaroslav.krizek(AT)atlas.cz), _, Nov 01 2009
proposed
approved
nonn,mult
approved
proposed