|
|
A318496
|
|
Scaled g.f. T(v) = Sum_{n>=0} a(n)*(v/16)^n satisfies 15*(189*v-80)*T + d/dv(4*v*(27*v-5)*(27*v-32)*T') = 0, and a(0)=1; sequence gives a(n).
|
|
1
|
|
|
1, 30, 1440, 85260, 5606100, 391231080, 28360117800, 2110794125400, 160187289344100, 12339496371120600, 961855480344860640, 75700880007230883600, 6005580964527420946800, 479651805879329497831200, 38529018420812424368031600, 3110295017383730347887664560
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
Period function T(v) measures precession of the J-vector along an algebraic sphere curve with local cyclic C_3 symmetry. For precise definitions, pictures, a proof certificate, and more information, see A318495.
|
|
LINKS
|
|
|
FORMULA
|
10*n^2*a(n) - 3*(333*n^2-333*n+100)*a(n-1) + 324*(6*n-7)*(6*n-5)*a(n-2) = 0.
For n > 0, a(n) mod 30 = 0 (conjecture, tested up to n=10^6).
|
|
MATHEMATICA
|
RecurrenceTable[{10 n^2 a[n] - 3 (333 n^2 - 333 n + 100) a[n-1] + 324 (6*n - 7) (6 n - 5) a[n-2] == 0, a[0] == 1, a[1] == 30}, a, {n, 0, 15}]
|
|
PROG
|
(GAP) a:=[1, 30];; for n in [3..20] do a[n]:=(1/(10*(n-1)^2))*(3*(333*(n^2-3*n+2)+100)*a[n-1]-(324*(6*n-13)*(6*n-11)*a[n-2])); od; a; # Muniru A Asiru, Sep 24 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|