A178063 Partial sums of A007464.

1, 2, 4, 7, 11, 17, 23, 34, 44, 62, 78, 98, 122, 148, 168, 213, 253, 291, 325, 387, 433, 487, 537, 621, 671, 773, 851, 955, 1053, 1143, 1213, 1402, 1484, 1614, 1698, 1818, 1930, 2060, 2180, 2412, 2564, 2798, 2930, 3060, 3268, 3550, 3690, 4152, 4332, 4542

Offset: 0

Author

Jonathan Vos Post, May 18 2010

Keywords

• nonn
• easy

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A007464.

Programs

Haskell

a178063 n = a178063_list !! n
a178063_list = scanl1 (+) a007464_list
-- Reinhard Zumkeller, Jan 21 2014

Maple

a007464:= proc(n) option remember;
  `if`(n=0, 1, add(igcd(procname(i), procname(n-1-i)), i=0..n-1))
end proc:
ListTools[PartialSums](map(a007464,[$0..100])); # Robert Israel, Mar 22 2015

Mathematica

(* b is A007464 *) b[0] = 1; b[1] = 1; b[n_] := b[n] = Sum[GCD[b[k], b[n - k - 1]], {k, 0, n - 1}];
b /@ Range[0, 100] // Accumulate (* Jean-François Alcover, Jul 25 2020 *)

Formula

a(n) = Sum_{i=0..n} A007464(i).

Extensions

a(45) fixed by Reinhard Zumkeller, Jan 21 2014