OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..50
FORMULA
a(n) = ((5^(n-1) + 3)/4) * a(n-1). - Vincenzo Librandi, Nov 12 2012
MATHEMATICA
a[n_, m_]:= a[n, m]= If[n<3, 1, (m^(n-1)+m-2)*a[n-1, m]/(m-1)];
Table[a[n, 5], {n, 20}] (* G. C. Greubel, Apr 29 2023 *)
PROG
(Magma) [n le 2 select 1 else ((5^(n-1)+3)/4)*Self(n-1): n in [1..15]]; // Vincenzo Librandi, Nov 12 2012
(SageMath)
@CachedFunction # a = A015506
def a(n, m): return 1 if (n<3) else (m^(n-1) + m-2)*a(n-1, m)/(m-1)
[a(n, 5) for n in range(1, 31)] # G. C. Greubel, Apr 29 2023
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved