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