The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A328154 G.f. A(x) satisfies: A(x) = A(x^2) + x / (1 + x)^2. 0
 1, -1, 3, -5, 5, -3, 7, -13, 9, -5, 11, -15, 13, -7, 15, -29, 17, -9, 19, -25, 21, -11, 23, -39, 25, -13, 27, -35, 29, -15, 31, -61, 33, -17, 35, -45, 37, -19, 39, -65, 41, -21, 43, -55, 45, -23, 47, -87, 49, -25, 51, -65, 53, -27, 55, -91, 57, -29, 59, -75, 61, -31, 63, -125, 65 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 LINKS Table of n, a(n) for n=1..65. FORMULA G.f.: Sum_{k>=0} x^(2^k) / (1 + x^(2^k))^2. G.f.: Sum_{k>=1} (-1)^(k + 1) * phi(2*k) * x^k / (1 - x^k), where phi = A000010. a(2*n) = a(n) - 2*n, a(2*n+1) = 2*n + 1. From Werner Schulte, Oct 05 2020: (Start) Multiplicative with a(2^e) = 3 - 2^(e+1) and a(p^e) = p^e for e >= 0 and prime p > 2. Dirichlet g. f.: Sum_{n>0} a(n)/n^s = zeta(s-1) * (1-3/(2^s-1)). (End) MATHEMATICA nmax = 65; CoefficientList[Series[Sum[x^(2^k)/(1 + x^(2^k))^2, {k, 0, Floor[Log[2, nmax]] + 1}], {x, 0, nmax}], x] // Rest nmax = 65; CoefficientList[Series[Sum[(-1)^(k + 1) EulerPhi[2 k] x^k/(1 - x^k), {k, 1, nmax}], {x, 0, nmax}], x] // Rest a[n_] := If[EvenQ[n], a[n/2] - n, n]; Table[a[n], {n, 1, 65}] PROG (Magma) a:=[1]; for k in [1..65] do if IsOdd(k) then a[k]:=k; else a[k]:=a[k div 2]-k; end if; end for; a; // Marius A. Burtea, Oct 07 2019 (PARI) a(n) = if (n==1, 1, if (n % 2, n, a(n/2) - n)); \\ Michel Marcus, Oct 07 2019 (PARI) a(n) = 3*(n>>valuation(n, 2)) - n<<1; \\ Kevin Ryde, Oct 06 2020 CROSSREFS Cf. A000010, A001511, A062570, A088705, A129527. Sequence in context: A085963 A282177 A184593 * A249304 A333906 A306224 Adjacent sequences: A328151 A328152 A328153 * A328155 A328156 A328157 KEYWORD sign,mult AUTHOR Ilya Gutkovskiy, Oct 05 2019 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 22 09:48 EDT 2024. Contains 373568 sequences. (Running on oeis4.)