cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A349433 a(n) = A349431(n) + A349432(n).

This page as a plain text file.
%I A349433 #16 Oct 16 2023 04:31:34
%S A349433 2,0,0,1,0,2,0,3,1,4,0,3,0,6,4,7,0,3,0,6,6,10,0,5,4,12,3,9,0,-4,0,15,
%T A349433 10,16,12,5,0,18,12,10,0,-6,0,15,2,22,0,9,9,8,16,18,0,5,20,15,18,28,0,
%U A349433 -4,0,30,3,31,24,-10,0,24,22,-12,0,9,0,36,0,27,30,-12,0,18,7,40,0,-6,32,42,28,25,0,-6,36,33
%N A349433 a(n) = A349431(n) + A349432(n).
%H A349433 Antti Karttunen, <a href="/A349433/b349433.txt">Table of n, a(n) for n = 1..20000</a>
%F A349433 a(1) = 2, and for n >1, a(n) = -Sum_{d|n, 1<d<n} A349431(d) * A349432(n/d). [As the sequences are Dirichlet inverses of each other]
%t A349433 k[n_] := (n / 2^IntegerExponent[n, 2] + 1)/2; kinv[1] = 1; kinv[n_] := kinv[n] = -DivisorSum[n, kinv[#] * k[n/#] &, # < n &]; a[n_] := DivisorSum[n, # * kinv[n/#] + # * MoebiusMu[#] * k[n/#] &]; Array[a, 100] (* _Amiram Eldar_, Nov 18 2021 *)
%o A349433 (PARI) A349433(n) = (A349431(n) + A349432(n)); \\ Needs also code from A349431 and A349432.
%Y A349433 Cf. A349431, A349432.
%Y A349433 Cf. also A349446.
%K A349433 sign,look
%O A349433 1,1
%A A349433 _Antti Karttunen_, Nov 17 2021