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.

A344440 a(n) = n + A061020(n).

This page as a plain text file.
%I A344440 #14 May 26 2021 02:34:11
%S A344440 2,1,1,7,1,8,1,3,16,14,1,6,1,20,23,27,1,11,1,8,33,32,1,34,46,38,7,10,
%T A344440 1,22,1,11,53,50,59,57,1,56,63,60,1,30,1,14,17,68,1,26,92,29,83,16,1,
%U A344440 74,95,86,93,86,1,84,1,92,21,107,113,46,1,20,113,46,1,37,1,110,33,22,137,54,1,36,142,122,1,120,149
%N A344440 a(n) = n + A061020(n).
%C A344440 Compare the scatter plot to that of A061020.
%H A344440 Antti Karttunen, <a href="/A344440/b344440.txt">Table of n, a(n) for n = 1..12427</a>
%H A344440 Antti Karttunen, <a href="/A344440/a344440.txt">Data supplement: n, a(n) computed for n = 1..65537</a>
%F A344440 a(n) = n + A061020(n).
%F A344440 a(n) = A344439(n) + A344441(n).
%t A344440 With[{nn = 85}, MapIndexed[First[#2] + #1 &, Drop[CoefficientList[Series[Sum[LiouvilleLambda[k] k x^k/(1 - x^k), {k, 1, #}], {x, 0, #}], x], 1] &[nn]]] (* _Michael De Vlieger_, May 24 2021, after _Jean-François Alcover_ at A061020 *)
%o A344440 (PARI)
%o A344440 A061020(n) = {my(f=factorint(n)); prod(k=1, #f[, 2], ((-f[k, 1])^(f[k, 2]+1)-1)/(-f[k, 1]-1))}; \\ From A061020
%o A344440 A344440(n) = (n+A061020(n));
%Y A344440 Cf. A061020, A344439, A344441.
%K A344440 nonn,look
%O A344440 1,1
%A A344440 _Antti Karttunen_, May 23 2021