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,2

Links

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

Formula

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

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 *)

Prog

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

Crossrefs

Cf. A007464.

Sequence in context: A076273 A024455 A038045 * A095233 A062434 A084267

Adjacent sequences: A178060 A178061 A178062 * A178064 A178065 A178066

Keyword

nonn,easy

Author

Jonathan Vos Post, May 18 2010

Extensions

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

Status

approved