This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A141828 #12 Feb 01 2025 08:41:47 %S A141828 1,5,79,3199,272981,42653281,11055730435,4424134795739, %T A141828 2588750874763849,2123099311165701661,2358999234628557401111, %U A141828 3453810779419670890966615,6510747302004208690462157149,15496121141045183700690805861049 %N A141828 a(n) = (n^4*a(n-1)-1)/(n-1) for n >= 2, with a(0) = 1, a(1) = 5. %C A141828 For related recurrences of the form a(n) = (n^k*a(n-1)-1)/(n-1) see A001339, A007808 (both k = 2) and A141827 (k = 3). a(n) is a difference divisibility sequence, that is, the difference a(n) - a(m) is divisible by n - m for all n and m (provided n is not equal to m). See A000522 for further properties of difference divisibility sequences. %H A141828 Harvey P. Dale, <a href="/A141828/b141828.txt">Table of n, a(n) for n = 0..181</a> %F A141828 Sum_{n>=0} a(n)*x^n/n!^3 = (1/(1-x)^2)*Sum_{n>=0} (n^2+n+1)*x^n/n!^3. %F A141828 a(n) = n!^3*Sum_{k=0..n} (n-k+1)*(k^2+k+1)/k!^3. %F A141828 a(n) = n*n!^3*(5 - Sum_{k=2..n} 1/(k!^3*k*(k-1))) for n > 0. [corrected by _Jason Yuen_, Jan 31 2025] %F A141828 Congruence property: a(n) == (1+n+n^2+n^3) (mod n^4). %F A141828 The recurrence a(n) = (n^3+n^2+n+2)*a(n-1) - (n-1)^3*a(n-2), n >= 2, shows that a(n) is always a positive integer. The sequence b(n) := n*n!^3 also satisfies the same recurrence with b(0) = 0, b(1) = 1. Hence we obtain the finite continued fraction expansion a(n)/(n*n!^3) = 5 - 1^3/(16 - 2^3/(41 - 3^3/(86 -...-(n-1)^3/(n^3+n^2+n+2)))), for n >= 1. a(n)*b(n+1) - b(n)*a(n+1) = n!^3. %F A141828 Limit_{n->oo} a(n)/(n*n!^3) = Sum_{n>=0} (n^2+n+1)/n!^3 = 4.9367223378... . %F A141828 Limit_{n->oo} a(n)/(n*n!^3) = 1 + Sum_{n>=0} 1/(Product_{k=0..n} A008620(k)). %p A141828 a := n -> n!^3*add((n-k+1)*(k^2+k+1)/k!^3, k = 0..n): seq(a(n), n = 0..16); %t A141828 nxt[{n_,a_}]:={n+1,((n+1)^4*a-1)/n}; Join[{1},NestList[nxt,{1,5},15][[All,2]]] (* _Harvey P. Dale_, Mar 12 2017 *) %Y A141828 Cf. A001339, A007808, A141827. %K A141828 easy,nonn %O A141828 0,2 %A A141828 _Peter Bala_, Jul 09 2008