A083215 a(n) = 1 + Sum(prime(i)*(2*i-1): 1<=i<=n).

3, 12, 37, 86, 185, 328, 549, 834, 1225, 1776, 2427, 3278, 4303, 5464, 6827, 8470, 10417, 12552, 15031, 17800, 20793, 24190, 27925, 32108, 36861, 42012, 47471, 53356, 59569, 66236, 73983, 82236, 91141, 100454, 110735, 121456, 132917

Offset

1,1

Links

Table of n, a(n) for n=1..37.

Eric Weisstein's World of Mathematics, Figurate Number.

Mathematica

nxt[{n_, a_}] := {n + 1, a + Prime[n + 1] (2 n + 1)}; NestList[nxt, {1, 2}, 50][[All, 2]]+1 (* Harvey P. Dale, Jul 05 2018 *)

Prog

(PARI) a(n) = 1 + sum(i=1, n, prime(i)*(2*i-1)); \\ Michel Marcus, Jan 22 2022

Crossrefs

Cf. A002412.

Equals 1 + A316322(n).

Sequence in context: A110950 A102744 A145951 * A211958 A255610 A022727

Adjacent sequences: A083212 A083213 A083214 * A083216 A083217 A083218

Keyword

nonn

Author

Reinhard Zumkeller, Jun 01 2003

Extensions

Definition corrected by Harvey P. Dale, Jul 03 2018

Status

approved