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
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
Comments