OFFSET
0,4
COMMENTS
0, -1, -1, -4/3, -5/3, -2, -7/3, -8/3, -3, -10/3, -11/3, -4, -13/4, -14/3, -5, = a(n)/b(n),
1, 0, 1, 4/3, 5/3, 2, 7/3, 8/3, 3,
1, -2, -1, -4/3, -5/3, -2, -7/3, -8/3, -3,
3, -2, 1, 4/3, 5/3, 2, 7/3, 8/3, 3,
5, -6, -1, -4/3, -5/3, -2, -7/3, -8/3, -3,
11, -10, 1, 4/3, 5/3, 2, 7/3, 8/3, 3,
21, -22, -1, -4/3, -5/3, -2, -7/3, -8/3, -3,
Vertical: A001045(n), -A078008(n), (-1)^(n+1)*A000012(n), (-1)^(n+1)*A010709(n)/A010701(n), (-1)^(n+1)*A010716(n+1)/A010701(n), A007395(n), .. .
a(n+5)-a(n+2)=b(n+5) (=-1,-3,-3,=-A169609(n)).
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..5000
D. Merlini, R. Sprugnoli, and M. C. Verri, The Akiyama-Tanigawa Transformation, Integers, 5 (1) (2005) #A05.
Index entries for linear recurrences with constant coefficients, signature (0,0,2,0,0,-1).
FORMULA
a(3*n)=-3*n-1 except a(0)=0; a(3*n+1)=-3*n-2 except a(1)=-1; a(3*n+2)=-n-1.
From Chai Wah Wu, May 07 2024: (Start)
a(n) = 2*a(n-3) - a(n-6) for n > 7.
G.f.: x*(x^6 + x^5 - 3*x^3 - 4*x^2 - x - 1)/(x^6 - 2*x^3 + 1). (End)
MATHEMATICA
a[0]=0; a[1]=-1; a[n_] := (-n-1)/Max[1, 2*Mod[n, 3]-1]; Table[a[n], {n, 0, 59}] (* Jean-François Alcover, Sep 18 2012 *)
CROSSREFS
KEYWORD
AUTHOR
Paul Curtz, Sep 07 2011
STATUS
approved