|
|
A035509
|
|
Main diagonal of Inverse Stolarsky array.
|
|
0
|
|
|
1, 7, 25, 101, 321, 1075, 3426, 9958, 30253, 92735, 253731, 739303, 2056915, 5899304, 17108660, 46137324, 130016549, 370248450, 993480845, 2766546762, 7510827752, 20798505510, 58123818148, 155141346542, 426530329383
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MAPLE
|
with(combinat, fibonacci): gold:=(1+sqrt(5))/2: c1:=n->piecewise(n<>1, round((n-1)*gold), 1): c2:=n->c1(n)+floor((2*c1(n)+1)*gold/2)+1: inv_stol:=(n, k)->fibonacci(2*k-3)-1-c1(n)*fibonacci(2*k-4)+c2(n)*fibonacci(2*k-2): seq(inv_stol(n, n), n=1..30); inv_stol2:=(n, k)->(1+c1(n))*fibonacci(2*k-3)+(1+floor((2*c1(n)+1)*gold/2))*fibonacci(2*k-2)-1: seq(inv_stol2(n, n), n=1..30); inv_stol3:=proc(n, k) options remember: if k=1 then RETURN(c1(n)) elif k=2 then RETURN(c2(n)) else RETURN(3*inv_stol3(n, k-1)-inv_stol3(n, k-2)+1) fi: end: : seq(inv_stol3(n, n), n=1..30); (Ronaldo)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Jan 01 2005
|
|
STATUS
|
approved
|
|
|
|