A072042 a(n+2) = a(n+1)*a(n)*(1+1/n), a(1)=a(2)=1.

1, 1, 2, 3, 8, 30, 288, 10080, 3317760, 37623398400, 138694895861760000, 5739990655358858585702400000, 868480806755424464755519466250436608000000000

Offset: 1

Author

Benoit Cloitre, Jul 29 2002

Keywords

• easy
• nonn

Links

• Steven R. Finch, Substitution dynamics, January 23, 2014. [Cached copy, with permission of the author]
• C. Godrèche and J. M. Luck, Quasiperiodicity and randomness in tilings of the plane, J. Statist. Phys. 55 (1989) 1-28.
• J. Nilsson, On the entropy of random Fibonacci words, arXiv:1001.3513 [math.CO], 2010.

Crossrefs

Cf. A235857, A235858.

Programs

Mathematica

a[1] = a[2] = 1; a[n_] := a[n - 1]*a[n - 2]*(1 + 1/(n - 2)); Table[ a[n], {n, 1, 13}]
RecurrenceTable[{a[1]==a[2]==1,a[n+2]==a[n+1]*a[n]*(1+1/n)},a,{n,13}] (* Harvey P. Dale, Sep 18 2018 *)

Extensions

Edited by Robert G. Wilson v, Jul 31 2002