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.

A331073 a(n) = Sum_{k = 1..n} [d_3(k)*d_3(n+1-k)], where d_3 = A007425.

This page as a plain text file.
%I A331073 #12 Apr 19 2024 03:28:18
%S A331073 0,1,6,15,30,51,72,114,128,207,204,315,294,465,402,622,510,834,636,
%T A331073 1023,834,1251,918,1602,1074,1767,1392,2117,1428,2523,1620,2781,2088,
%U A331073 3003,2000,3882,2238,3729,2886,4350,2688,5055,2928,5313,3768,5343,3420,7032,3678,6264,4800,7347,4230,8278,4584,8394
%N A331073 a(n) = Sum_{k = 1..n} [d_3(k)*d_3(n+1-k)], where d_3 = A007425.
%C A331073 For background references see A330570.
%H A331073 Amiram Eldar, <a href="/A331073/b331073.txt">Table of n, a(n) for n = 0..10000</a>
%t A331073 f[p_, e_] := (e+1)*(e+2)/2; s[1] = 1; s[n_] := s[n] = Times @@ f @@@ FactorInteger[n]; a[n_] := Sum[s[k] * s[n+1-k], {k, 1, n}]; Array[a, 100, 0] (* _Amiram Eldar_, Apr 19 2024 *)
%Y A331073 Cf. A007425.
%Y A331073 See A331074 for another version.
%K A331073 nonn
%O A331073 0,3
%A A331073 _N. J. A. Sloane_, Jan 10 2020
%E A331073 Offset corrected by _Amiram Eldar_, Apr 19 2024