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!)
 A174727 a(n) = A091137(n+1))/(n+1). 3
 2, 6, 8, 180, 288, 10080, 17280, 453600, 806400, 47900160, 87091200, 217945728000, 402361344000, 2241727488000, 4184557977600, 2000741783040000, 3766102179840000, 2838385676206080000, 5377993912811520000, 1686001091666411520000, 3211430650793164800000, 423033001181754163200000 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 COMMENTS Previous name: Inverse Akiyama-Tanigawa algorithm. From a column instead of a row. Bernoulli case A164555/A027642. We start from column 1, 1/2, 1/3, 1/4, 1/5 = A000012/A000027. First row: 1) (unreduced) 1, 1/2, 5/12, 9/24, 251/720 = A002657/A091137 (Cauchy from Bernoulli) (*); 2) (reduced) 1, 1/2, 5/12, 3/8, 251/720 = A002208/A002209 (Stirling and Bernoulli). Unreduced second row: 1/2, 1/6, 1/8, 19/180, 27/288, 863/10080 = A141417(n+1)/a(n). (*) Reference page 56 (first row) and page 36 (upper main diagonal). From J. C. Adams (and Bashforth) numerical integration. See A165313 and A147998. See A002206 logarithm numbers (Gregory). REFERENCES P. Curtz, Intégration numérique des systèmes différentiels .. . Note 12, Centre de Calcul Scientifique de l'Armement, Arcueil, 1969. LINKS FORMULA a(n) = A091137(n+1))/(n+1). MATHEMATICA A091137[n_] := A091137[n] = Product[d, {d, Select[ Divisors[n] + 1, PrimeQ]}]*A091137[n-1]; A091137[0] = 1; a[n_] := A091137[n+1]/(n+1); Table[a[n], {n, 0, 18}] (* Jean-François Alcover_, Aug 14 2012 *) PROG (PARI) f(n) = my(r =1); forprime(p=2, n+1, r*=p^(n\(p-1))); r; \\ A091137 a(n) = f(n+1)/(n+1); \\ Michel Marcus, Jun 30 2019 CROSSREFS Cf. A002689, A091137. Sequence in context: A279258 A120709 A002689 * A046728 A110984 A021792 Adjacent sequences:  A174724 A174725 A174726 * A174728 A174729 A174730 KEYWORD nonn AUTHOR Paul Curtz, Mar 28 2010 EXTENSIONS Extended up to a(18) by Jean-François Alcover, Aug 14 2012 New name and more terms from Michel Marcus, Jun 30 2019 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 March 31 16:23 EDT 2020. Contains 333151 sequences. (Running on oeis4.)