OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
a[n_] := 9 * 2^(PrimeNu[n] + PrimeOmega[n] + 2); a[1] = 1; Array[a, 100] (* Amiram Eldar, Jul 11 2023 *)
PROG
(PARI)
A124508(n) = (2^bigomega(n) * 3^omega(n));
(PARI) a(n) = my(f = factor(n)); if(n == 1, 1, 9 * 2^(omega(f) + bigomega(f) + 2)); \\ Amiram Eldar, Jul 11 2023
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Reinhard Zumkeller, Nov 04 2006
STATUS
approved