|
|
A178144
|
|
Sum of divisors d of n which are d=2, 3 or 5.
|
|
3
|
|
|
0, 2, 3, 2, 5, 5, 0, 2, 3, 7, 0, 5, 0, 2, 8, 2, 0, 5, 0, 7, 3, 2, 0, 5, 5, 2, 3, 2, 0, 10, 0, 2, 3, 2, 5, 5, 0, 2, 3, 7, 0, 5, 0, 2, 8, 2, 0, 5, 0, 7, 3, 2, 0, 5, 5, 2, 3, 2, 0, 10, 0, 2, 3, 2, 5, 5, 0, 2, 3, 7, 0, 5, 0, 2, 8, 2, 0, 5, 0, 7, 3, 2, 0, 5, 5, 2, 3, 2, 0, 10, 0, 2, 3, 2, 5, 5, 0, 2, 3, 7, 0, 5, 0, 2, 8
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
The sequence is periodic with period length 30.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = -2*a(n-1) -2*a(n-2) -a(n-3) +a(n-5) +2*a(n-6) +2*a(n-7) +a(n-8). R. J. Mathar, Jul 23 2012
G.f.: ( -x*(2+7*x+12*x^2+17*x^3+22*x^4+10*x^6+20*x^5) ) / ( (x-1)*(1+x)*(1+x+x^2)*(x^4+x^3+x^2+x+1) ). - R. J. Mathar, Jul 23 2012
|
|
MAPLE
|
local a;
a := 0 ;
for d in {2, 3, 5} do
if (n mod d) = 0 then
a := a+d ;
end if;
end do:
a ;
|
|
MATHEMATICA
|
a[n_] := DivisorSum[n, Boole[MatchQ[#, 2|3|5]]*#&];
|
|
PROG
|
(PARI) a(n) = sumdiv(n, d, if ((d==2) || (d==3) || (d==5), d)); \\ Michel Marcus, Nov 24 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|