OFFSET
1,2
MATHEMATICA
With[{p14=14^Range[40]}, Join[{1}, Table[SelectFirst[p14, IntegerDigits[n]==Take[ IntegerDigits[#], IntegerLength[ n]]&], {n, 2, 20}]]] (* Harvey P. Dale, Aug 10 2024 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Daniel Mondot, Sep 18 2010
STATUS
approved