cp's OEIS Frontend

A067444 Smallest n-th power starting with 3.

%I A067444 #13 Feb 12 2025 15:23:32
%S A067444 3,36,343,38416,32,34012224,35831808,390625,387420489,3486784401,
%T A067444 362797056,3138428376721,34522712143931,379749833583241,32768,
%U A067444 33232930569601,30491346729331195904,387420489,319479999370622926848
%N A067444 Smallest n-th power starting with 3.
%C A067444 Terms from _Robert G. Wilson v_.
%H A067444 Robert Israel, <a href="/A067444/b067444.txt">Table of n, a(n) for n = 1..657</a>
%p A067444 f:= proc(n) local k,x;
%p A067444   for k from 0 do
%p A067444     x:= ceil((3*10^k)^(1/n))^n;
%p A067444     if x < 4*10^k then return x fi
%p A067444   od
%p A067444 end proc:
%p A067444 map(f, [$1..30]); # _Robert Israel_, Feb 12 2025
%t A067444 a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 3, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* _Robert G. Wilson v_ *)
%Y A067444 Cf. A067442, A067443.
%K A067444 base,easy,nonn,look
%O A067444 1,1
%A A067444 _Amarnath Murthy_, Feb 05 2002