|
Search: id:A117160
|
|
| |
|
| 1, 1, 2, 4, 9, 19, 43, 94, 210, 464, 1035, 2295, 5111, 11352, 25259, 56145, 124888, 277669, 617554, 1373201, 3053883, 6790995, 15102178, 33583784, 74684504, 166082706, 369337117, 821331578, 1826484804, 4061741926, 9032530513
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
G.f.: A(x) = g.f. of A117169 (Shift-Moebius[1,1,1,1,...])
divided by the g.f. of A117166 (Shift-Moebius[1,0,0,0,...])
(see A117165 for the Shift-Moebius transform coefficients).
Limit_{n->oo} a(n+1)/a(n) = 2.223805416529545241557...
|
|
PROGRAM
|
(PARI) {a(n)=if(n<1, 0, SM=prod(i=0, n, matrix(n, n, r, c, if(r>=c, if((r+n-i)%(c+n-i)==0, moebius((r+n-i)/(c+n-i)), 0)))); U=SM*vector(n, i, 1)~; V=SM*vector(n, i, if(i==1, 1, 0))~; return(Vec(Ser(U)/Ser(V))[n]))}
|
|
CROSSREFS
|
Cf. A112682, A117165 (Shift-Moebius), A117169, A117166, A117161.
Sequence in context: A112569 A101463 A026776 this_sequence A084083 A036611 A036612
Adjacent sequences: A117157 A117158 A117159 this_sequence A117161 A117162 A117163
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Wouter Meeussen (wouter.meeussen(AT)pandora.be) and Paul D. Hanna (pauldhanna(AT)juno.com), Feb 28 2006
|
|
|
Search completed in 0.002 seconds
|
