%I #7 Jul 16 2022 17:15:20
%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 = m^3-m^2 such that k-+1 are primes.
%F A045991 INTERSECT A014574. - _R. J. Mathar_, Jul 16 2022
%t lst={};Do[k=n^3-n^2;If[PrimeQ[k-1]&&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