|
| |
|
|
A008473
|
|
If n = Product (p_j^k_j) then a(n) = Product (p_j + k_j).
|
|
5
| |
|
|
1, 3, 4, 4, 6, 12, 8, 5, 5, 18, 12, 16, 14, 24, 24, 6, 18, 15, 20, 24, 32, 36, 24, 20, 7, 42, 6, 32, 30, 72, 32, 7, 48, 54, 48, 20, 38, 60, 56, 30, 42, 96, 44, 48, 30, 72, 48, 24, 9, 21, 72, 56, 54, 18, 72, 40, 80, 90, 60, 96, 62, 96, 40, 8, 84, 144, 68, 72, 96, 144, 72, 25, 74, 114
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| Multiplicative with a(p^e) = p+e. - David W. Wilson (davidwwilson(AT)comcast.net), Aug 01, 2001.
|
|
|
MAPLE
| A008473 := proc(n) local e, j; e := ifactors(n)[2]:
mul (e[j][1]+e[j][2], j=1..nops(e)) end:
seq (A008473(n), n=1..80);
# - Peter Luschny, Jan 17 2011
|
|
|
MATHEMATICA
| Array[Times @@ Total /@ FactorInteger[ # ] &, 80] - Joseph Biberstine (jrbibers(AT)indiana.edu), Jul 28 2006
|
|
|
CROSSREFS
| Sequence in context: A100692 A089640 A086659 * A069088 A178450 A019462
Adjacent sequences: A008470 A008471 A008472 * A008474 A008475 A008476
|
|
|
KEYWORD
| nonn,mult
|
|
|
AUTHOR
| Olivier Gerard (olivier.gerard(AT)gmail.com)
|
|
|
EXTENSIONS
| More terms from Joseph Biberstine (jrbibers(AT)indiana.edu), Jul 28 2006
|
| |
|
|
