OFFSET
1,1
COMMENTS
Terms from Robert G. Wilson v.
LINKS
Robert Israel, Table of n, a(n) for n = 1..657
MAPLE
f:= proc(n) local k, x;
for k from 0 do
x:= ceil((3*10^k)^(1/n))^n;
if x < 4*10^k then return x fi
od
end proc:
map(f, [$1..30]); # Robert Israel, Feb 12 2025
MATHEMATICA
a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 3, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
AUTHOR
Amarnath Murthy, Feb 05 2002
STATUS
approved