OFFSET
1,1
MATHEMATICA
3 - Flatten[ IntegerDigits[ Range@ 40, 4]] (* Robert G. Wilson v, Jul 01 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved