|
| |
| |
|
|
|
1, 2, 3, 4, 6, 8, 12, 17, 25, 36, 54, 79, 119, 177, 267, 402, 612, 928, 1420, 2170, 3334, 5125, 7911, 12216, 18926, 29346, 45610, 70960, 110610, 172577, 269685, 421830, 660648, 1035603, 1625123
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| D. J. Broadhurst, On the enumeration of irreducible k-fold Euler sums and their roles in knot theory and field theory
|
|
|
MAPLE
| b := proc(n) local sum; sum := 0; for d in divisors(n) do sum := sum + mobius(n/d)*(fibonacci(d+1)+fibonacci(d-1)) od; RETURN(sum/n); end; A001461 := proc(n) local i; add(b(i), i=1..n); end;
|
|
|
MATHEMATICA
| b[n_] := Sum[ MoebiusMu[n/d]*(Fibonacci[d+1] + Fibonacci[d-1]), {d, Divisors[n]}]/n; Accumulate[ Table[ b[n], {n, 1, 35}]] (* From Jean-François Alcover, Dec 02 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A018438 A107368 A074733 * A173383 A048597 A074964
Adjacent sequences: A001458 A001459 A001460 * A001462 A001463 A001464
|
|
|
KEYWORD
| nonn,nice,easy
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), David Broadhurst (D.Broadhurst(AT)open.ac.uk)
|
| |
|
|
