OFFSET
1,1
COMMENTS
Generating polynomial is Schur's polynomial of 5-degree. Schur's polynomials n degree are n-th first term of series expansion of e^x function. All polynomials are non-reducible and belonging to the An alternating Galois transitive group if n is divisible by 4 or to Sn symmetric Galois Group in other case (proof Schur, 1930).
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
MATHEMATICA
a = {}; Do[If[IntegerQ[1 + x + x^2/2 + x^3/6 + x^4/24 + x^5/120], AppendTo[a, 1 + x + x^2/2 + x^3/6 + x^4/24 + x^5/120]], {x, 1, 1000}]; a
Select[Table[ x^5/120+x^4/24+x^3/6+x^2/2+x+1, {x, 450}], IntegerQ] (* Harvey P. Dale, Jan 20 2019 *)
PROG
(PARI) for(x=1, 500, y=x^5+5*x^4+20*x^3+60*x^2+120*x+120; if(y%120==0, print1(y/120, ", "))) \\ Michael B. Porter, Jan 29 2010
(PARI) isA127881(n)={local(r); r=0; fordiv(120*n-120, x, if(x^5/120+x^4/24+x^3/6+x^2/2+x+1==n, r=1)); r} \\ Michael B. Porter, Jan 29 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Feb 04 2007
STATUS
approved