OFFSET
1,3
COMMENTS
LINKS
Felix Fröhlich, Table of n, a(n) for n = 1..10000
MATHEMATICA
lim = 5; lst = Table[(10^n - 1)/9, {n, 0, lim}]; Reap@ For[i = 1, i <= lim, i++, Sow@ Table[lst[[i + 1]], {d, 2^i}]] // Flatten // Rest (* Michael De Vlieger, Apr 01 2015 *)
PROG
(PARI) a(n)=10^#binary(n+1)\90
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Mar 21 2015
STATUS
approved