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