%I A074174
%S A074174 44,18,172,171,45,12,45,12,236,18,52,63,50,261,524,12,28,45,44,637,404,
%T A074174 28,45,20,20,18,18,147,63,20,44,12,12,18,28,63,116,12,236,12,75,50,20,
%U A074174 325,18,52,28,20,50,18,12,423,45,44,20,12,18,18,116,147,63,325,12,12,52
%N A074174 Smallest number k such that k and k+n are of the form p^2*q where p and 
               q are primes.
%e A074174 a(2) = 18 as 18 = 3^2*2 and 18 +2 =20 = 2^2*5.
%t A074174 Table[k=1; found=False; While[ !found, k++; f1=FactorInteger[k]; If[Sort[Transpose[f1][[2]]]=={1, 
               2}, f2=FactorInteger[k+n]; If[Sort[Transpose[f2][[2]]]=={1, 2}, found=True]]]; 
               k, {n, 100}]
%Y A074174 Cf. A074172, A074173, A054753.
%Y A074174 Sequence in context: A040010 A160330 A074175 this_sequence A033977 A033364 
               A108213
%Y A074174 Adjacent sequences: A074171 A074172 A074173 this_sequence A074175 A074176 
               A074177
%K A074174 nonn
%O A074174 1,1
%A A074174 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Aug 30 2002
%E A074174 Corrected and extended by T. D. Noe (noe(AT)sspectra.com), Oct 04 2004