|
| |
|
|
A107759
|
|
(+2)UnitarySigma(n) : If n=Product p_i^r_i then (+2)Sigma(n)=Product (2+p_i^r_i), (+2)UnitarySigma(1)=1.
|
|
2
| |
|
|
1, 4, 5, 6, 7, 20, 9, 10, 11, 28, 13, 30, 15, 36, 35, 18, 19, 44, 21, 42, 45, 52, 25, 50, 27, 60, 29, 54, 31, 140, 33, 34, 65, 76, 63, 66, 39, 84, 75, 70, 43, 180, 45, 78, 77, 100, 49, 90, 51, 108, 95, 90, 55, 116, 91
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
EXAMPLE
| (+2)UnitarySigma(12)=(2+3)*(2+4)=30.
|
|
|
MAPLE
| A107759 := proc(n) local pf, p ; if n = 1 then 1; else pf := ifactors(n)[2] ; mul( 2+op(1, p)^op(2, p), p=pf) ; end if; end proc:
seq(A107759(n), n=1..60) ; # R. J. Mathar, Jan 07 2011
|
|
|
CROSSREFS
| Cf. A107758, A054862.
Sequence in context: A046300 A053738 A154787 * A161627 A030667 A030677
Adjacent sequences: A107756 A107757 A107758 * A107760 A107761 A107762
|
|
|
KEYWORD
| nonn,mult
|
|
|
AUTHOR
| Yasutoshi Kohmoto (zbi74583(AT)boat.zero.ad.jp), May 25 2005
|
| |
|
|
