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.
%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