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