OFFSET
1,2
MATHEMATICA
Join[{1}, Flatten[Table[Select[16^Range[50], Take[IntegerDigits[#], IntegerLength[ n]] == IntegerDigits[n]&, 1], {n, 0, 20}]]] (* Harvey P. Dale, Feb 21 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Daniel Mondot, Sep 18 2010
EXTENSIONS
More terms from Harvey P. Dale, Feb 21 2013
STATUS
approved