A120634 Decimal equivalent of A066335.

0, 7, 6, 5, 4, 11, 10, 9, 8, 15, 14, 13, 12, 19, 18, 17, 16, 23, 22, 21, 20, 27, 26, 25, 24, 31, 30, 29, 28, 35, 34, 33, 32, 39, 38, 37, 36, 43, 42, 41, 40, 47, 46, 45, 44, 51, 50, 49, 48, 55, 54, 53, 52, 59, 58, 57, 56, 63, 62, 61, 60, 67, 66, 65, 64, 71, 70, 69, 68, 75, 74, 73

Offset: 0

Author

Joshua Zucker, Jun 21 2006

Keywords

• base
• easy
• nonn

Comments

The same as A004444 except for first 3 terms. - Pietro Battiston, Jan 19 2008

Links

• Index entries for linear recurrences with constant coefficients, signature (1,0,0,1,-1).

Crossrefs

Cf. A004444, A066335.

Programs

Mathematica

LinearRecurrence[{1,0,0,1,-1},{0,7,6,5,4},80] (* Harvey P. Dale, May 10 2015 *)

PARI

concat(0, Vec(-x*(x^3+x^2+x-7)/((x-1)^2*(x+1)*(x^2+1)) + O(x^100))) \\ Colin Barker, Oct 06 2014

Formula

From Colin Barker, Oct 06 2014: (Start)

a(n) = (3-(-1)^n-(1-i)*((-i)^n+i*i^n)+n) where i=sqrt(-1).

a(n) = a(n-1)+a(n-4)-a(n-5).

G.f.: -x*(x^3+x^2+x-7) / ((x-1)^2*(x+1)*(x^2+1)).

(End)