A180691 Smallest power of 12 that begins with n.
1, 20736, 35831808, 429981696, 5159780352, 61917364224, 743008370688, 8916100448256, 953962166440690129601298432, 106993205379072, 11447545997288281555215581184, 12, 137370551967459378662586974208, 144, 15407021574586368, 1648446623609512543951043690496
Offset: 1
Programs
-
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 *)
Extensions
More terms from Harvey P. Dale, Feb 14 2011