A180699 Smallest power of 16 that begins with n.
1, 256, 309485009821345068724781056, 4096, 5192296858534827628530496329220096, 65536, 72057594037927936, 83076749736557242056487941267521536, 91343852333181432387730302044767688728495783936, 1048576
Offset: 1
Programs
-
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 *)
Extensions
More terms from Harvey P. Dale, Feb 21 2013