OFFSET
1,2
MATHEMATICA
tlv=12^Range[0, 40]; f[n_]:=Module[{idn=IntegerDigits[n], len}, len=Length[idn]; First[Select[tlv, Take[IntegerDigits[#], len]==idn&]]]; Table[f[i], {i, 20}]//Quiet (* Harvey P. Dale, Feb 14 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Daniel Mondot, Sep 17 2010
EXTENSIONS
More terms from Harvey P. Dale, Feb 14 2011
STATUS
approved