login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

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