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.

A346612 Moebius transform of A019554.

This page as a plain text file.
%I A346612 #16 Nov 18 2022 08:30:48
%S A346612 1,1,2,0,4,2,6,2,0,4,10,0,12,6,8,0,16,0,18,0,12,10,22,4,0,12,6,0,28,8,
%T A346612 30,4,20,16,24,0,36,18,24,8,40,12,42,0,0,22,46,0,0,0,32,0,52,6,40,12,
%U A346612 36,28,58,0,60,30,0,0,48,20,66,0,44,24,70,0,72,36,0,0,60,24,78,0,0
%N A346612 Moebius transform of A019554.
%H A346612 Amiram Eldar, <a href="/A346612/b346612.txt">Table of n, a(n) for n = 1..10000</a>
%H A346612 N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>.
%F A346612 Multiplicative with a(p^e) = 0 if e is even, and p^((e+1)/2) - p^((e-1)/2) if e is odd. - _Amiram Eldar_, Aug 19 2021
%F A346612 Sum_{k=1..n} a(k) ~ c * n^2, where c = 18*zeta(3)/Pi^4 = 0.222125... . - _Amiram Eldar_, Nov 18 2022
%t A346612 f[p_, e_] := If[EvenQ[e], 0, p^((e + 1)/2) - p^((e - 1)/2)]; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* _Amiram Eldar_, Aug 19 2021 *)
%o A346612 (PARI) a(n) = sumdiv(n, d, moebius(n/d)*d/core(d, 1)[2]); \\ _Michel Marcus_, Aug 18 2021
%Y A346612 Cf. A002117, A019554, A346613.
%K A346612 nonn,mult,easy
%O A346612 1,3
%A A346612 _N. J. A. Sloane_, Aug 18 2021