A160589 Denominator of Laguerre(n, -10).
1, 1, 1, 3, 3, 3, 9, 63, 63, 567, 81, 6237, 1701, 243243, 1702701, 5108103, 5108103, 1772199, 781539759, 14849255421, 14849255421, 311834363841, 3430178002251, 7172190368343, 33811754593617, 236682282155319, 3076869668019147
Offset: 0
Links
- G. C. Greubel, Table of n, a(n) for n = 0..500
Programs
-
Magma
[Denominator((&+[Binomial(n,k)*(10^k/Factorial(k)): k in [0..n]])): n in [0..30]]; // G. C. Greubel, May 13 2018
-
Mathematica
Denominator[Table[LaguerreL[n, -10], {n, 0, 50}]] (* G. C. Greubel, May 13 2018 *)
-
PARI
for(n=0,30, print1(denominator(sum(k=0,n, binomial(n,k)*(10^k/k!))), ", ")) \\ G. C. Greubel, May 13 2018
-
PARI
a(n) = denominator(pollaguerre(n, 0, -10)); \\ Michel Marcus, Feb 05 2021