The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A051529 INVERT transform of A000081 = [1, 1, 1, 2, 4, 9, 20, 48, 115, 286,...]. 1
 1, 2, 4, 9, 21, 51, 126, 318, 812, 2100, 5482, 14438, 38303, 102302, 274824, 742210, 2013941, 5488239, 15014376, 41221775, 113542455, 313681756, 868994723, 2413526848, 6719132105, 18746838609, 52412080624, 146812972155, 411977724704, 1158006098132 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS Alois P. Heinz, Table of n, a(n) for n = 0..650 MAPLE with(numtheory): b:= proc(n) option remember; local d, j; `if`(n<=1, 1, (add(add(d*b(d), d=divisors(j)) *b(n-j), j=1..n-1))/ (n-1)) end: a:= proc(n) option remember; local i; `if`(n<1, 1, add(a(n-i) *b(i-1), i=1..n+1)) end: seq(a(n), n=0..30);  # Alois P. Heinz, Apr 01 2009 MATHEMATICA b[n_] := b[n] = If[n <= 1, 1, (Sum[Sum[d*b[d], {d, Divisors[j]}]*b[n - j], {j, 1, n - 1}])/ (n - 1)]; a[n_] := a[n] = If[n < 1, 1, Sum[a[n - i]*b[i - 1], {i, 1, n + 1}]]; a /@ Range[0, 30] (* Jean-François Alcover, Mar 01 2021, after Alois P. Heinz *) CROSSREFS Cf. A000081, A000107. Sequence in context: A176334 A257386 A048285 * A230554 A005207 A257519 Adjacent sequences:  A051526 A051527 A051528 * A051530 A051531 A051532 KEYWORD nonn AUTHOR STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 16 11:58 EDT 2021. Contains 345057 sequences. (Running on oeis4.)