login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A110395 a(1) = 1. a(n) = n times (10's complement of a(n-1)). 2
1, 18, 246, 3016, 34920, 390480, 4266640, 45866880, 487198080, 5128019200, 53591788800, 556898534400, 5760319052800, 59355533260800, 609667001088000, 6245327982592000, 63829424295936000, 651070362673152000, 6629663109210112000, 67406737815797760000 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

a(1)=1; a(n)=n*[10...0 - a(n-1)] for n>1 (00...0 and a[n-1] have the same number of digits). - Emeric Deutsch, Jul 31 2005

LINKS

Sidney Cadot, Table of n, a(n) for n = 1..200

EXAMPLE

a(4) = 4* 10's complement of a(3) = 4*(1000-246) = 3016.

MAPLE

s:=proc(m) nops(convert(m, base, 10)) end: a[1]:=1: for n from 2 to 21 do a[n]:=n*(10^s(a[n-1])-a[n-1]) od: seq(a[n], n=1..21); # Emeric Deutsch, Jul 31 2005

# second Maple program:

a:= proc(n) option remember; `if`(n<2, n,

       n*(p-> 10^length(p)-p)(a(n-1)))

    end:

seq(a(n), n=1..25);  # Alois P. Heinz, Sep 22 2015

MATHEMATICA

a110395[numTerms_] := Block[{complement, a},

   complement[n_] := 10^IntegerLength[n] - n;

   a[n_] := a[n] = If[n == 1, 1, n*complement[a[n - 1]]];

   Table[a[n], {n, 1, numTerms}

]]; (* Sidney Cadot, Sep 22 2015 *)

a110395[50]

CROSSREFS

Cf. A110394.

Sequence in context: A016294 A153593 A001713 * A153600 A016183 A016239

Adjacent sequences:  A110392 A110393 A110394 * A110396 A110397 A110398

KEYWORD

base,easy,nonn

AUTHOR

Amarnath Murthy, Jul 29 2005

EXTENSIONS

More terms from Emeric Deutsch, Jul 31 2005

Incorrect formula and corresponding Mathematica program removed by Sidney Cadot, Sep 22 2015

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 16 23:44 EDT 2019. Contains 328103 sequences. (Running on oeis4.)