A176358 Partial sums of A002503.

5, 19, 46, 87, 131, 196, 272, 362, 471, 596, 735, 887, 1042, 1211, 1397, 1586, 1789, 1997, 2206, 2425, 2652, 2882, 3119, 3384, 3659, 3957, 4264, 4575, 4889, 5210, 5534, 5863, 6207, 6584, 6997, 7416, 7844, 8278, 8717, 9158, 9607, 10065, 10524, 10991

Offset: 1

Author

Jonathan Vos Post, Apr 15 2010

Keywords

• easy
• nonn
• changed

Examples

			a(4) = 5 + 14 + 27 + 41 = 87.
		

Crossrefs

Cf. A002503.

Programs

Mathematica

Accumulate[Select[Range[800],Divisible[Binomial[2#,#],(#+1)^2]&]]  (* Harvey P. Dale, Apr 18 2011 *)

Formula

a(n) = Sum_{i=1..n} A002503(i).

Extensions

Corrected by Harvey P. Dale, Apr 18 2011