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!)
 A193220 Denominators of the fourth row of Akiyama-Tanigawa algorithm leading to Bernoulli numbers A164555(n)/A027642(n). 3
 1, 30, 20, 35, 84, 84, 120, 495, 55, 286, 1092, 455, 280, 2040, 816, 969, 855, 1330, 1540, 5313, 1012, 2300, 7800, 2925, 819, 10962, 4060, 4495, 7440, 5456, 5984, 19635, 1785, 7770, 25308, 9139, 4940 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 COMMENTS Denominators of row k=3 of the table in A051714. LINKS M. Kaneko, The Akiyama-Tanigawa algorithm for Bernoulli numbers, J. Integer Sequences, 3 (2000), #00.2.9. D. Merlini, R. Sprugnoli, M. C. Verri, The Akiyama-Tanigawa Transformation, Integers, 5 (1) (2005) #A05. EXAMPLE The third row is 0, 1/30, 1/20, 2/35, 5/84, 5/84, 7/120, 28/495, 3/55, 15/286, 55/1092, 22/455, 13/280, ... MAPLE read("transforms3"); L := [seq(1/n, n=1..40)] ; L1 := AKIYATANI(L) ; L2 := AKIYATANI(L1) ; L3 := AKIYATANI(L2) ; apply(denom, %) ; # R. J. Mathar, Aug 20 2011 MATHEMATICA a[0, k_] := 1/(k+1); a[n_, k_] := a[n, k] = (k+1)*(a[n-1, k] - a[n-1, k+1]); Table[a[3, k], {k, 0, 36}] // Denominator (* Jean-François Alcover, Sep 18 2012 *) CROSSREFS Cf. A194531 (numerators). Sequence in context: A040873 A070891 A033971 * A040872 A268855 A117749 Adjacent sequences:  A193217 A193218 A193219 * A193221 A193222 A193223 KEYWORD nonn,frac AUTHOR Paul Curtz, Jul 18 2011 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 August 4 09:03 EDT 2020. Contains 336201 sequences. (Running on oeis4.)