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.

A378493 Dot product of the first n primes and the first n triangular numbers.

This page as a plain text file.
%I A378493 #16 Dec 12 2024 17:51:53
%S A378493 2,11,41,111,276,549,1025,1709,2744,4339,6385,9271,13002,17517,23157,
%T A378493 30365,39392,49823,62553,77463,94326,114313,137221,163921,195446,
%U A378493 230897,269831,313273,360688,413233,476225,545393,622250,704955,798825,899391,1009762
%N A378493 Dot product of the first n primes and the first n triangular numbers.
%H A378493 Alois P. Heinz, <a href="/A378493/b378493.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from Harvey P. Dale)
%F A378493 a(n) mod 2 = A166486(n-1).
%e A378493 a(3) = dot product of {2,3,5} and {1,3,6} = 2*1+3*3+5*6 = 41.
%p A378493 a:= proc(n) option remember; `if`(n<1, 0,
%p A378493       a(n-1)+ithprime(n)*n*(n+1)/2)
%p A378493     end:
%p A378493 seq(a(n), n=1..37);  # _Alois P. Heinz_, Nov 28 2024
%t A378493 Table[Prime[Range[n]].Accumulate[Range[n]],{n,50}]
%Y A378493 Partial sums of A196421.
%Y A378493 Cf. A000040, A000217, A166486.
%K A378493 nonn
%O A378493 1,1
%A A378493 _Harvey P. Dale_, Nov 28 2024