OFFSET
0,1
MATHEMATICA
Flatten[Join[{Table[FromDigits[IntegerDigits[93, 15-n]], {n, 0, 13}], FromDigits[PadRight[ {}, 93, 1]]}]] (* Harvey P. Dale, Dec 31 2013 *)
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
N. J. A. Sloane, Jun 04 2004
STATUS
approved