login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A008922 Crystal ball sequence for lattice {E_7}*. 1
1, 57, 995, 8683, 48429, 198677, 653791, 1825719, 4494329, 10016209, 20601723, 39670115, 72292453, 125732205, 210093239, 339085039, 530914929, 809317097, 1204728211, 1755619419, 2509994525, 3527064133, 4879105551, 6653518247, 8955084649, 11908446081, 15660803627, 20384853715 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

LINKS

T. D. Noe, Table of n, a(n) for n = 0..1000

Index entries for crystal ball sequences

J. H. Conway and N. J. A. Sloane, Low-Dimensional Lattices VII: Coordination Sequences, Proc. Royal Soc. London, A453 (1997), 2369-2389 (pdf).

Index entries for linear recurrences with constant coefficients, signature (8,-28,56,-70,56,-28,8,-1).

FORMULA

G.f.: (1+x)*(1 +48*x +519*x^2 +1744*x^3 +1959*x^4 +624*x^5 +x^6)/(1-x)^8.

From G. C. Greubel, Sep 13 2019: (Start)

a(n) = (35 +37*n +679*n^2 +3928*n^3 +280*n^4 +518*n^5 -14*n^6 +68*n^7)/35.

E.g.f.: (35 +1960*x +154358x^2 +34230*x^3 +28350*x^4 +9828*x^5 +1414*x^6 +68*x^7)*exp(x)/35. (End)

MAPLE

seq((35 +37*n +679*n^2 +392*n^3 +280*n^4 +518*n^5 -14*n^6 +68*n^7)/35, n=0..30); # G. C. Greubel, Sep 13 2019

MATHEMATICA

CoefficientList[Series[(1+x)(x^6+624x^5+1959x^4+1744x^3+519x^2+48x+1)/ (1-x)^8, {x, 0, 30}], x] (* Harvey P. Dale, May 14 2019 *)

PROG

(PARI) a(n)=([0, 1, 0, 0, 0, 0, 0, 0; 0, 0, 1, 0, 0, 0, 0, 0; 0, 0, 0, 1, 0, 0, 0, 0; 0, 0, 0, 0, 1, 0, 0, 0; 0, 0, 0, 0, 0, 1, 0, 0; 0, 0, 0, 0, 0, 0, 1, 0; 0, 0, 0, 0, 0, 0, 0, 1; -1, 8, -28, 56, -70, 56, -28, 8]^n*[1; 57; 995; 8683; 48429; 198677; 653791; 1825719])[1, 1] \\ Charles R Greathouse IV, Feb 10 2017

(PARI) vector(30, n, m=n-1; (35 +37*m +679*m^2 +392*m^3 +280*m^4 +518*m^5 -14*m^6 +68*m^7)/35) \\ G. C. Greubel, Sep 13 2019

(MAGMA) [(35 +37*n +679*n^2 +392*n^3 +280*n^4 +518*n^5 -14*n^6 +68*n^7)/35: n in [0..30]]; // G. C. Greubel, Sep 13 2019

(Sage) [(35 +37*n +679*n^2 +392*n^3 +280*n^4 +518*n^5 -14*n^6 +68*n^7)/35 for n in (0..30)] # G. C. Greubel, Sep 13 2019

(GAP) List([0..30], n-> (35 +37*n +679*n^2 +392*n^3 +280*n^4 +518*n^5 -14*n^6 +68*n^7)/35); # G. C. Greubel, Sep 13 2019

CROSSREFS

Sequence in context: A233370 A008390 A231311 * A332947 A116181 A336734

Adjacent sequences:  A008919 A008920 A008921 * A008923 A008924 A008925

KEYWORD

nonn,nice,easy

AUTHOR

N. J. A. Sloane

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 18 00:01 EDT 2021. Contains 347489 sequences. (Running on oeis4.)