A067447 Smallest n-th power starting with 6.
6, 64, 64, 625, 6436343, 64, 62748517, 6561, 68719476736, 60466176, 64268410079232, 68719476736, 67108864, 6103515625, 6746640616477458432, 65536, 66249952919459433152512, 68719476736, 609359740010496
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..605
Programs
-
Maple
f:= proc(n) local x, y; for x from 2 do y:= x^n; if floor(y/10^ilog10(y)) = 6 then return x^n fi od end proc: map(f, [$1..50]); # Robert Israel, Apr 02 2025
-
Mathematica
a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 6, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* Robert G. Wilson v *)
Comments