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!)
 A081407 4th-order non-linear ("factorial") recursion: a(0)=a(1)=a(2)=a(3)=1, a(n) = (n+1)*a(n-4). 2
 1, 1, 1, 1, 5, 6, 7, 8, 45, 60, 77, 96, 585, 840, 1155, 1536, 9945, 15120, 21945, 30720, 208845, 332640, 504735, 737280, 5221125, 8648640, 13627845, 20643840, 151412625, 259459200, 422463195, 660602880, 4996616625, 8821612800 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,5 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 0..1000 EXAMPLE Following sequences are interleaved: A007696: {5,45,585,..}; A000404: {6,60,840,..} A034176: {7,77,1155,..}; A034177: {8,96,1536,..} MATHEMATICA f[n_]:= (n+1)*f[n-4]; f[0]=1; f[1]=1; f[2]=1; f[3]=1; Table[f[n], {n, 0, 40}] PROG (Haskell) a081407 n = a081408_list !! n a081407_list = 1 : 1 : 1 : 1 : zipWith (*) [5..] a081407_list -- Reinhard Zumkeller, Jan 05 2012 (PARI) a(n) = if(n<4, 1, (n+1)*a(n-4) ); vector(35, n, a(n-1)) \\ G. C. Greubel, Aug 24 2019 (MAGMA) a:= func< n | n le 3 select 1 else n in [4..6] select n+1 else (n+1)*Self(n-3) >; [a(n): n in [0..35]]; // G. C. Greubel, Aug 24 2019 (Sage) def a(n):     if n<4: return 1     elif 4<= n <= 6: return n+1     else: return (n+1)*a(n-4) [a(n) for n in (0..35)] # G. C. Greubel, Aug 24 2019 (GAP) a:= function(k)     if k<4 then return 1;     elif k<7 then return k+1;     else return (k+1)*a(k-4);     fi;   end; List([0..35], n-> a(n) ); # G. C. Greubel, Aug 24 2019 CROSSREFS Cf. A000404, A007696, A034176, A034177, A081405, A081405, A081407. Sequence in context: A302599 A098670 A320021 * A268857 A205857 A196026 Adjacent sequences:  A081404 A081405 A081406 * A081408 A081409 A081410 KEYWORD nonn AUTHOR Labos Elemer, Apr 01 2003 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 April 3 19:43 EDT 2020. Contains 333198 sequences. (Running on oeis4.)