OFFSET
1,2
LINKS
John Cerkan, Table of n, a(n) for n = 1..3300
MATHEMATICA
d = Flatten[Table[IntegerDigits[n, 2], {n, 100}]]; Table[FromDigits[Take[d, {n(n + 1)/2 + 1, (n + 1)(n + 2)/2}], 2], {n, 0, 32}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy and Robert G. Wilson v, Nov 22 2004
STATUS
approved