%I #8 Mar 20 2015 19:11:28

%S 4,4,4096,4096,4084101,4096,4782969,43046721,40353607,41426511213649,

%T 4194304,4096,4503599627370496,4782969,470184984576,43046721,

%U 456487940826035155404146917,426878854210636742656,4394336169668803158610484050361,4064231406647572522401601

%N Smallest n-th power starting with 4.

%C Terms from _Robert G. Wilson v_.

%t a = {}; Do[k = 1; While[First[IntegerDigits[k^n]] != 4, k++ ]; a = Append[a, k^n], {n, 1, 25}]; a (* _Robert G. Wilson v_ *)

%Y Cf. A067442, A067443, A067444.

%K base,easy,nonn

%O 1,1

%A _Amarnath Murthy_, Feb 05 2002

%E Moved Mathematica program to proper field -- _Harvey P. Dale_, Mar 31 2012