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.

Showing 1-2 of 2 results.

A322420 Sum of the first n*(n+1) primes.

Original entry on oeis.org

0, 5, 41, 197, 639, 1593, 3447, 6601, 11599, 19113, 29897, 44683, 64615, 90763, 124211, 166551, 218759, 283081, 360979, 454095, 564319, 694297, 846287, 1021511, 1223095, 1454367, 1717867, 2016457, 2352313, 2728929, 3149913, 3619807, 4141547
Offset: 0

Views

Author

Ray Chandler, Dec 07 2018

Keywords

Comments

Partial sums of A109726.

Crossrefs

Programs

  • Mathematica
    f[n_] := Sum[Prime[k], {k, n}]; Table[f[n*(n+1)], {n, 0, 32}]
    Module[{nn=40,ap},ap=Join[{0},Accumulate[Prime[Range[nn^2-nn+1]]]];Table[ ap[[n^2-n+1]],{n,nn}]] (* Harvey P. Dale, Jul 14 2021 *)

Formula

a(n) = A007504(A002378(n)).

A322421 Primes of the form A322420(k) or the sum of the first k*(k+1) primes.

Original entry on oeis.org

5, 41, 197, 44683, 360979, 3619807, 5353841, 25106701, 47525059, 159781073, 188024357, 243458497, 445838927, 1015334371, 2018174117, 2079737563, 4925466041, 5294877781, 6383922529, 6531129499, 6680974507, 7635495793
Offset: 1

Views

Author

Ray Chandler, Dec 07 2018

Keywords

Crossrefs

Programs

  • Mathematica
    f[n_] := Sum[Prime[k], {k, n}]; Select[
    Table[f[n*(n + 1)], {n, 0, 240}], PrimeQ]

Formula

Showing 1-2 of 2 results.