OFFSET
0,3
COMMENTS
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..301
MATHEMATICA
Table[FromDigits@ IntegerDigits[Floor[10^n/9], 2], {n, 0, 12}] (* Michael De Vlieger, Sep 06 2017 *)
FromDigits[IntegerDigits[#, 2]]&/@Table[FromDigits[PadRight[{}, n, 1]], {n, 0, 20}] (* Harvey P. Dale, Apr 01 2023 *)
PROG
(PARI) a(n) = subst(Pol(binary((10^n-1)/9)), x, 10)
(Python)
def a(n): return 0 if n == 0 else int(bin(int("1"*n))[2:])
print([a(n) for n in range(13)]) # Michael S. Branicky, Apr 26 2022
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Felix Fröhlich, Sep 06 2017
STATUS
approved