OFFSET
0,3
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..10000
MATHEMATICA
A055648[n_] := FromDigits[Flatten[Map[PadLeft[#, 2] &, IntegerDigits[IntegerDigits[n, 13]]]]];
Array[A055648, 100, 0] (* Paolo Xausa, Mar 06 2026 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Henry Bottomley, Jun 06 2000
STATUS
approved
