A067449 Smallest n-th power starting with 8.
8, 81, 8, 81, 844596301, 85766121, 823543, 815730721, 8662995818654939, 819628286980801, 8589934592, 8916100448256, 8192, 805345924720991301978201, 8629188747598184440949
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..492
Programs
-
Maple
f:= proc(n) local x, y; for x from 2 do y:= x^n; if floor(y/10^ilog10(y)) = 8 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]] != 8, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* Robert G. Wilson v *)
Comments