A154733 Integers of the form k = m^3+m^2 such that k-+1 are primes.
12, 150, 810, 1452, 1872, 18252, 87120, 106032, 242172, 333270, 362952, 712890, 1968750, 2763600, 3198132, 5767380, 10551420, 16451580, 18469440, 23230350, 25498620, 30468672, 31955502, 34752252, 39768102, 40825920, 56770560
Offset: 1
Keywords
Examples
2^3+2^2 = 12, and 12-+1 are primes, so 12 is a term.
Programs
-
Mathematica
lst={};Do[k=n^3+n^2;If[PrimeQ[k-1]&&PrimeQ[k+1],AppendTo[lst,k]],{n,8!}];lst