login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A300818 Number of 3-cycles in the n-Keller graph. 4
0, 0, 5568, 805120, 77137920, 6307700736, 475634876416, 34155559059456, 2374835654098944, 161464681410592768, 10803965184146669568, 714596279034260226048, 46865991748990252613632, 3054517201890713310068736, 198161437014738390623453184 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

LINKS

Andrew Howroyd, Table of n, a(n) for n = 1..100

Eric Weisstein's World of Mathematics, Graph Cycle

Eric Weisstein's World of Mathematics, Keller Graph

FORMULA

a(n) = 2^(2*n - 1)*(3^(2*n + 1) - 3^(n + 1)*4^n - 7^n + 16^n + (4*3^n - 3*4^n + 3*n - 3)*n)/3. - Eric W. Weisstein, Mar 20 2018

G.f.: 64*x^3*(87 - 8648*x + 319808*x^2 - 4495488*x^3 - 11911936*x^4 + 941117440*x^5 - 8636104704*x^6 + 25777668096*x^7) / ((1 - 4*x)^3*(1 - 12*x)^2*(1 - 16*x)^2*(1 - 28*x)*(1 - 36*x)*(1 - 48*x)*(1 - 64*x)). - Colin Barker, Mar 20 2018

MATHEMATICA

Table[2^(2 n - 1) (3^(2 n + 1) - 3^(n + 1) 4^n - 7^n + 16^n + (4 3^n - 3 4^n + 3 n - 3) n)/3, {n, 20}]

LinearRecurrence[{244, -25104, 1434176, -50448128, 1145183232, -17085018112, 167078576128, -1046232170496, 3986606260224, -8340356726784, 7305739370496}, {0, 0, 5568, 805120, 77137920, 6307700736, 475634876416, 34155559059456, 2374835654098944, 161464681410592768, 10803965184146669568}, 20]

CoefficientList[Series[-64 x^2 (87 - 8648 x + 319808 x^2 - 4495488 x^3 - 11911936 x^4 + 941117440 x^5 - 8636104704 x^6 + 25777668096 x^7)/((-1 + 4 x)^3 (-1 + 12 x)^2 (-1 + 16 x)^2 (-1 + 28 x) (-1 + 36 x) (-1 + 48 x) (-1 + 64 x)), {x, 0, 20}], x]

PROG

(PARI)

G(n, k, bset)={

my(r=vector(n), m=sum(i=0, k-1, 1<<(2*i)), u=vector(1<<(2*k), i, i==1));

for(n=1, n,

  my(v=vector(#u));

  for(b=1, #bset,

    my(d=bitxor(bset[b], bset[b]<<2), t1=bitand(d, m), t2=bitand((d>>1), m-t1));

    for(i=0, #u-1,

      my(k=bitor(bitor(i, t1), bitor(t2<<1, bitand(i>>1, t2))));

      v[k+1] += u[i+1] ));

  u = v;

  r[n] = 4^n*u[#u]/(2*k) );

r

}

G(10, 3, [0..15]) \\ Andrew Howroyd, Mar 14 2018

(PARI) concat(vector(2), Vec(64*x^3*(87 - 8648*x + 319808*x^2 - 4495488*x^3 - 11911936*x^4 + 941117440*x^5 - 8636104704*x^6 + 25777668096*x^7) / ((1 - 4*x)^3*(1 - 12*x)^2*(1 - 16*x)^2*(1 - 28*x)*(1 - 36*x)*(1 - 48*x)*(1 - 64*x)) + O(x^20))) \\ Colin Barker, Mar 20 2018

(MAGMA) [2^(2*n-1)*(3^(2*n+1)-3^(n+1)*4^n-7^n+16^n+(4*3^n- 3*4^n+3*n-3)* n)/3: n in [1..20]]; // Vincenzo Librandi, Mar 21 2018

CROSSREFS

Cf. A300842 (4-cycles), A300848 (5-cycles), A300849 (6-cycles).

Sequence in context: A043512 A167281 A252907 * A252154 A065698 A109565

Adjacent sequences:  A300815 A300816 A300817 * A300819 A300820 A300821

KEYWORD

nonn

AUTHOR

Eric W. Weisstein, Mar 13 2018

EXTENSIONS

Terms a(7) and beyond from Andrew Howroyd, Mar 14 2018

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 4 16:52 EDT 2022. Contains 355081 sequences. (Running on oeis4.)