Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A145666
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A145666 a(n) = numerator of amazing polynomial of genus 1 and level n for m = 7 : A[1,n](7) +0
1
0, 7, 105, 2219, 31087, 1088129, 2538991, 17772957, 248821433, 15675750559, 21946050833, 1689845914645, 11828921402977, 1076431847676451, 7535022933740305, 263725802680934699, 3692161237533130831 (list; graph; listen)
OFFSET

1,2

COMMENT

For numerator of amazing polynomial of genus 1 and level n for m = 1 see A001008

For denominators see A145667.

Definition: Amazing polynomial A[1,n](m) = A[genus 1,level n] is here defined as

Sum[m^(n - d)/d,{d,1,n-1}]

Few first A[1,n](m):

n=1: A[1,1](m)= 0

n=2: A[1,2](m)= m

n=3: A[1,3](m)= m/2 + m^2

n=4: A[1,4](m)= m/3 + m^2/2 + m^3

n=5: A[1,5](m)= m/4 + m^2/3 + m^3/2 + m^4

General formula which uses amazing polynomials is following (*Artur Jasinski*):

(1/(n+1))Hypergeometric2F1[1,n,n+1,1/m] =

Sum[m^(-x)(1/(x+n),{x,0,Infinity}] =

m^(n)ArcTanh[(2m-1)/(2m^2-2m+1)]-A[1,n](m) =

m^(n)Log[m/(m-1)]-A[1,n](m)

MATHEMATICA

m = 7; aa = {}; Do[k = 0; Do[k = k + m^(r - d)/d, {d, 1, r - 1}]; AppendTo[aa, Numerator[k]], {r, 1, 30}]; aa (*Artur Jasinski*)

CROSSREFS

A145609-A145640, A145656-A145687.

Sequence in context: A067420 A131869 A132867 this_sequence A096131 A049210 A002486

Adjacent sequences: A145663 A145664 A145665 this_sequence A145667 A145668 A145669

KEYWORD

frac,nonn

AUTHOR

Artur Jasinski (grafix(AT)csl.pl), Oct 16 2008

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified December 18 21:37 EST 2009. Contains 171024 sequences.


AT&T Labs Research