OFFSET
1,1
LINKS
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
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved