OFFSET
1,1
COMMENTS
Terms from Robert G. Wilson v.
LINKS
Robert Israel, Table of n, a(n) for n = 1..703
MAPLE
f:= proc(n) local x, y;
for x from 2 do
y:= x^n;
if floor(y/10^ilog10(y)) = 2 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]] != 2, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* Robert G. Wilson v *)
PROG
(Python)
def a(n):
r = 1
while str(r**n)[0] != '2': r += 1
return r**n
print([a(n) for n in range(1, 24)]) # Michael S. Branicky, Feb 25 2021
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 05 2002
STATUS
approved
