A064617 a(n) = (10^n - 1)*(80/81) + n/9.

9, 98, 987, 9876, 98765, 987654, 9876543, 98765432, 987654321, 9876543210, 98765432099, 987654320988, 9876543209877, 98765432098766, 987654320987655, 9876543209876544, 98765432098765433, 987654320987654322, 9876543209876543211, 98765432098765432100, 987654320987654320989

Offset

1,1

Comments

a(n)/10^n converges to 80/81 = 0.987654320987654320...

Links

Harry J. Smith, Table of n, a(n) for n = 1..150

Index entries for linear recurrences with constant coefficients, signature (12,-21,10).

Formula

a(n) = 10*a(n-1) + 10 - n = (19 - n)*A002275(n) - A064616(n) = 10*A002275(n) - A014824(n).

From Colin Barker, Sep 15 2014: (Start)

a(n) = 12*a(n-1) - 21*a(n-2) + 10*a(n-3).

G.f.: x*(10*x - 9)/((x - 1)^2*(10*x - 1)). (End)

E.g.f.: exp(x)*(80*exp(9*x) + 9*x - 80)/81. - Stefano Spezia, May 28 2023

Example

Curious multiplications:
1*8 + 1 = 9;
12*8 + 2 = 98;
123*8 + 3 = 987;
1234*8 + 4 = 9876;
12345*8 + 5 = 98765;
123456*8 + 6 = 987654;
1234567*8 + 7 = 9876543;
12345678*8 + 8 = 98765432;
123456789*8 + 9 = 987654321.
- Vincenzo Librandi, Aug 07 2010 and Philippe Deléham, Mar 09 2014

Maple

A064617:=n->(10^n-1)*(80/81)+n/9; seq(A064617(n), 1..20); # Wesley Ivan Hurt, Mar 10 2014

Mathematica

Table[(10^n - 1)*(80/81) + n/9, {n, 20}] (* Wesley Ivan Hurt, Mar 10 2014 *)
LinearRecurrence[{12, -21, 10}, {9, 98, 987}, 30] (* Harvey P. Dale, Aug 20 2023 *)

Prog

(PARI) { a=0; for (n=1, 150, a=10*a + 10 - n; write("b064617.txt", n, " ", a) ) } \\ Harry J. Smith, Sep 20 2009
(PARI) Vec(x*(10*x-9)/((x-1)^2*(10*x-1)) + O(x^100)) \\ Colin Barker, Sep 15 2014

Crossrefs

Cf. A002275, A014824, A064616.

Sequence in context: A085868 A147637 A057933 * A225608 A220490 A024115

Adjacent sequences: A064614 A064615 A064616 * A064618 A064619 A064620

Keyword

nonn,base,easy

Author

Henry Bottomley, Sep 26 2001

Extensions

More terms from Colin Barker, Sep 15 2014

Status

approved