|
%I #6 Jul 14 2012 11:40:50
%S 4,9,25,32,49,81,121,128,169,216,243,289,343,400,484,529,625,729,841,
%T 961,1024,1156,1296,1369,1521,1681,1764,1936,2048,2187,2209,2401,2601,
%U 2744,2916,3125,3249,3375,3600,3844,4096,4356,4624,4900,5041,5329,5625,5832
%N Bisection of A001597.
%t t = Union@ Flatten@ Table[ n^i, {n, 2, Sqrt[6083]}, {i, 2, Log[n, 6083]}]; t[[2# - 1]] & /@ Range@(Length@t/2)
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Nov 20 2004
%E More terms from _Robert G. Wilson v_, Dec 14 2005
|
