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
KEYWORD
nonn,easy
AUTHOR
Jonathan Vos Post, May 18 2010
EXTENSIONS
a(45) fixed by Reinhard Zumkeller, Jan 21 2014
STATUS
approved