A307673 Partial sums of A108754.
1, 2, 3, 4, 7, 12, 21, 34, 53, 82, 121, 174, 243, 328, 431, 556, 707, 884, 1091, 1330, 1601, 1908, 2253, 2640, 3075, 3560, 4095, 4682, 5321, 6014, 6773, 7600, 8499, 9470, 10521, 11652, 12867, 14170, 15563, 17050, 18635, 20318, 22107, 24002, 26005, 28116, 30345
Offset: 1
Keywords
Examples
a(6) = Sum_{k=1..6} A108754(k) = 1+1+1+1+3+5 = 12.
Crossrefs
Cf. A108754.
Programs
-
Mathematica
With[{nn = 48}, Accumulate@ Map[Subtract @@ # &, Transpose@ {Accumulate@ Prime@ Range[nn], Range[nn]^2}]] (* Michael De Vlieger, Apr 21 2019 *)
Extensions
More terms from Michael De Vlieger, Apr 21 2019
Comments