|
%I #5 Dec 31 2013 16:29:04
%S 63,69,72,79,85,93,113,135,162,233,333,1131,10110,1011101,
%T 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
%N a(n) = 93 written in base 15 - n.
%t Flatten[Join[{Table[FromDigits[IntegerDigits[93,15-n]],{n,0,13}],FromDigits[PadRight[ {},93,1]]}]] (* _Harvey P. Dale_, Dec 31 2013 *)
%K nonn,fini,full
%O 0,1
%A _N. J. A. Sloane_, Jun 04 2004
|
