|
|
|
|
1, 144, 144, 288, 144, 576, 144, 576, 288, 576, 144, 1152, 144, 576, 576, 1152, 144, 1152, 144, 1152, 576, 576, 144, 2304, 288, 576, 576, 1152, 144, 2304, 144, 2304, 576, 576, 576, 2304, 144, 576, 576, 2304, 144, 2304, 144, 1152, 1152, 576, 144, 4608, 288
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
For primes p, q with p<>q: a(p) = 144; a(p*q) = 576; a(p^k) = 9*2^(k+3), k > 0.
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|