login
Partial sums of A045954.
1

%I #14 Mar 20 2024 03:14:06

%S 2,6,12,22,34,52,72,94,120,154,190,232,276,326,378,432,490,558,628,

%T 704,788,878,976,1076,1178,1286,1400,1516,1634,1764,1896,2034,2174,

%U 2322,2472,2636,2806,2978,3156,3338,3524,3720,3918,4130,4344,4562,4790,5020,5254

%N Partial sums of A045954.

%H Amiram Eldar, <a href="/A045964/b045964.txt">Table of n, a(n) for n = 1..10000</a>

%t seq[max_] := Module[{lst = Range[2, max, 2], i = 2, len}, While[i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++]; Accumulate[lst]]; seq[250] (* _Amiram Eldar_, Mar 20 2024, after _Robert G. Wilson v_ at A045954 *)

%Y Cf. A045954.

%K easy,nonn

%O 1,1

%A _Felice Russo_

%E More terms from _David W. Wilson_