|
| |
| |
|
|
|
1111111, 111, 21, 13, 12, 11, 10, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Index to sequences with linear recurrences with constant coefficients, signature (1).
|
|
|
FORMULA
| G.f.: x*(1111111-1111000*x-90*x^2-8*x^3-x^4-x^5-x^6-3*x^7)/(1-x). - Bruno Berselli, Sep 12 2011
|
|
|
MATHEMATICA
| Prepend[Table[FromDigits[IntegerDigits[7, n]], {n, 2, 100}], (10^7 - 1)/9] (* Arkadiusz Wesolowski, Sep 12 2011 *)
|
|
|
PROG
| (PARI) a(n)=if(n>7, 7, [1111111, 111, 21, 13, 12, 11, 10][n]) \\ Charles R Greathouse IV, Sep 02 2011
(MAGMA) I:=[1111111, 111, 21, 13, 12, 11, 10]; [n lt 8 select I[n] else 7: n in [1..93]]; // Bruno Berselli, Sep 12 2011
|
|
|
CROSSREFS
| Sequence in context: A086212 A060087 A176999 * A038449 A205735 A205916
Adjacent sequences: A035610 A035611 A035612 * A035614 A035615 A035616
|
|
|
KEYWORD
| nonn,base,easy
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com).
|
| |
|
|
