OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
With[{nn=20}, FromDigits/@TakeList[Flatten[IntegerDigits/@Range[1, (nn (nn+1)), 2]], Range[nn]]] (* Requires Mathematica version 11 or later *) (* Harvey P. Dale, Sep 23 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Dec 17 2001
EXTENSIONS
More terms from Hans Havermann, Sep 23 2002
STATUS
approved