%I A145449
%S A145449 16,17,18,123,124,125,126,127,128,129,550,551,552,553,554,555,556,557,
%T A145449 558,559,560,561,562,563,564,1797,1798,1799,1800,1801,1802,1803,1804,
%U A145449 1805,1806,1807,1808,1809,1810,1811,1812,1813,1814,1815,1816,1817,1818
%N A145449 Numbers n such that A145445(n) = A145446(n)
%C A145449 Numbers n such that s(n), the smallest square > nth prime, equals q(n), 
               the smallest cube > nth prime, s(n) = A145445(n), q(n) = A145446(n).
%t A145449 Do[If[Ceiling[Prime[n]^(1/3)]^3 == Ceiling[Prime[n]^(1/2)]^2,Print[n]],
               {n,10000}]
%Y A145449 A104103, A104147, A145445, A145446, A145447
%Y A145449 Sequence in context: A004505 A004457 A115420 this_sequence A138599 A007636 
               A151977
%Y A145449 Adjacent sequences: A145446 A145447 A145448 this_sequence A145450 A145451 
               A145452
%K A145449 nonn
%O A145449 1,1
%A A145449 Zak Seidov (zakseidov(AT)yahoo.com), Oct 10 2008