A067446
Smallest n-th power starting with 5.
Original entry on oeis.org
5, 529, 512, 50625, 59049, 531441, 52523350144, 5764801, 512, 59049, 584318301411328, 531441, 549755813888, 53148384174432398229504, 51185893014090757, 5070942774902496337890625, 505447028499293771
Offset: 1
-
f:= proc(n) local x, y;
for x from 2 do
y:= x^n;
if floor(y/10^ilog10(y)) = 5 then return x^n fi
od
end proc:
map(f, [$1..50]); # Robert Israel, Apr 02 2025
-
a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 5, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* Robert G. Wilson v *)
A067447
Smallest n-th power starting with 6.
Original entry on oeis.org
6, 64, 64, 625, 6436343, 64, 62748517, 6561, 68719476736, 60466176, 64268410079232, 68719476736, 67108864, 6103515625, 6746640616477458432, 65536, 66249952919459433152512, 68719476736, 609359740010496
Offset: 1
-
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
-
a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 6, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* Robert G. Wilson v *)
A067448
Smallest n-th power whose decimal expansion starts with 7.
Original entry on oeis.org
7, 729, 729, 707281, 7776, 729, 78125, 78310985281, 794280046581, 79792266297612001, 743008370688, 7355827511386641, 793714773254144, 78364164096, 734461618571137961752599, 79766443076872509863361
Offset: 1
-
f:= proc(n) local x, y;
for x from 2 do
y:= x^n;
if floor(y/10^ilog10(y)) = 7 then return x^n fi
od
end proc:
map(f, [$1..50]); # Robert Israel, Apr 02 2025
-
a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 7, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* Robert G. Wilson v *)
A067449
Smallest n-th power starting with 8.
Original entry on oeis.org
8, 81, 8, 81, 844596301, 85766121, 823543, 815730721, 8662995818654939, 819628286980801, 8589934592, 8916100448256, 8192, 805345924720991301978201, 8629188747598184440949
Offset: 1
-
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
-
a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 8, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* Robert G. Wilson v *)
A067450
Smallest n-th power starting with 9.
Original entry on oeis.org
9, 9, 9261, 923521, 9765625, 9474296896, 94931877133, 9682651996416, 922190162669056, 9765625, 952809757913927, 95428956661682176, 96889010407, 9012061295995008299689, 931322574615478515625
Offset: 1
-
f:= proc(n) local x, y;
for x from 2 do
y:= x^n;
if floor(y/10^ilog10(y)) = 9 then return x^n fi
od
end proc:
map(f, [$1..50]); # Robert Israel, Apr 02 2025
-
a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 9, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* Robert G. Wilson v *)
A067457
Smallest n-th power starting with n.
Original entry on oeis.org
1, 25, 343, 4096, 59049, 64, 78125, 815730721, 922190162669056, 1024, 116490258898219, 129746337890625, 13060694016, 147653612273582215982104576, 15407021574586368, 16400152899115243850138976256, 17179869184
Offset: 1
-
Do[k = Floor[ Log[ 10, n] + 1]; While[ FromDigits[ Take[ IntegerDigits [k^n], Floor[ Log[ 10, n] + 1]]] != n, k++ ]; Print[k^n], {n, 1, 20} ]
Showing 1-6 of 6 results.
Comments