%I
%S 4,18,180,2028,8820,34848,108288,191748,720900,875520,960498,990000,
%T 1355310,1629108,1713600,1756920,2334948,2609028,7376850,8448048,
%U 21639798,37148148,42023088,48893940,60544008,63840000,100328400
%N Integers of the form k=n^3n^2, such that k+1 are primes.
%t lst={};Do[k=n^3n^2;If[PrimeQ[k1]&&PrimeQ[k+1],AppendTo[lst,p]],{n,7!}];lst
%Y Cf. A111503
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 14 2009
