|
Search: id:A133751
|
|
|
| A133751 |
|
A permutation type function that gives three of the exceptional group dimensions: {14,52,248}->{G2,F4,E8} a(n)=2*(2+n)!+2^n=2*Gamma[n + 3] + 2^n or a(m)=2*m!+2^(n-2). |
|
+0
1
|
|
| 5, 14, 52, 248, 1456, 10112, 80704, 725888, 7257856, 79834112, 958004224, 12454043648, 174356586496, 2615348744192, 41845579792384, 711374856224768, 12804747411521536, 243290200817795072, 4865804016353542144
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Zeros of the function: a0 = Table[x /. FindRoot[2*Gamma[x + 3] + 2^x == 0, {x, -n + 0.5}], {n, 10, -10, -1}] (*Sigmoid:*) ListPlot[Union[a0]] f[x_]=Fit[Union[a0], {1, x}, x]=-222.782 + 8.86992 x Max[a0]=-11.0903
|
|
FORMULA
|
a(n)=2*(2+n)!+2^n
|
|
MATHEMATICA
|
Table[2*(2 + n)! + 2^n, {n, 0, 20}]
|
|
CROSSREFS
|
Sequence in context: A063835 A054664 A091218 this_sequence A005504 A073541 A055488
Adjacent sequences: A133748 A133749 A133750 this_sequence A133752 A133753 A133754
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 31 2007
|
|
|
Search completed in 0.002 seconds
|
