|
|
A140782
|
|
a(n) = sigma(n) * Kronecker(13, n).
|
|
0
|
|
|
1, -3, 4, 7, -6, -12, -8, -15, 13, 18, -12, 28, 0, 24, -24, 31, 18, -39, -20, -42, -32, 36, 24, -60, 31, 0, 40, -56, 30, 72, -32, -63, -48, -54, 48, 91, -38, 60, 0, 90, -42, 96, 44, -84, -78, -72, -48, 124, 57, -93, 72, 0, 54, -120, 72, 120, -80, -90, -60, -168, 62, 96, -104, 127, 0, 144, -68, 126, 96, -144
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
In the notation of Parry 1979 page 166, the g.f. is (theta_1 - theta_2) / 2 + theta_3 - theta_4 + theta_5 - theta_6 + theta_7 - theta_8 where theta_k is g.f. for A107497, ..., A107504.
|
|
LINKS
|
|
|
FORMULA
|
a(n) is multiplicative with a(p^e) = (p^(e+1) - 1) / (p - 1) * Kronecker(13, p)^e.
G.f. is a period 1 Fourier series which satisfies f(-1 / (169 t)) = -169 (t/i)^2 f(t) where q = exp(2 Pi i t).
|
|
EXAMPLE
|
q - 3*q^2 + 4*q^3 + 7*q^4 - 6*q^5 - 12*q^6 - 8*q^7 - 15*q^8 + 13*q^9 + ...
|
|
MATHEMATICA
|
Table[If[n==0, 0, DivisorSigma[1, n] JacobiSymbol[13, n]], {n, 100}] (* Indranil Ghosh, Jul 02 2017 *)
|
|
PROG
|
(PARI) {a(n) = if( n==0, 0, sigma(n) * kronecker( 13, n))}
(PARI) {a(n) = local(A, p, e); if( n<1, 0, A = factor(n); prod( k=1, matsize(A)[1], if( p=A[k, 1], e=A[k, 2]; (p^(e+1) - 1) / (p - 1) * kronecker( 13, p)^e)))}
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,mult
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|