login
A180727
Smallest power of 21 that begins with n.
3
1, 21, 37822859361, 441, 5842587018385982521381124421, 68122318582951682301, 794280046581, 85766121, 9261, 10523016528610349434285830688358359761, 1136272165922724266740722458520501, 122694327386105632949003612841
OFFSET
1,2
MATHEMATICA
With[{s=21^Range[0, 100]}, Table[SelectFirst[s, Take[IntegerDigits[ #], IntegerLength[ n]] == IntegerDigits[ n]&], {n, 30}]]//Quiet (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 24 2020 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Daniel Mondot (dmondot(AT)gmail.com), Sep 18 2010
STATUS
approved