STATUS
editing
approved
editing
approved
Transpose[Select[Partition[Range[250]^3, 2, 1], PrimeOmega[Total[#]] == 2&]] [[1]] (* Harvey P. Dale, Dec 15 2015 *)
approved
editing
editing
approved
(PARI) forprime(p=3, 1e4, if(isprime((p^2+3)/4), print1((p^3 - 3*p^2 + 3*p - 1)/8", "))) \\ Charles R Greathouse IV, Aug 25 2014
nonn,easy
approved
editing
editing
approved
Cubes k ^3 such that k^3 + (k+k1 1)^3 is semiprime where k1 is the next cube after k.
proposed
editing
editing
proposed
Cubes k such that k+k1 is semiprime where k1 is the next cube after k.
proposed
editing
editing
proposed
K. D. Bajpai, <a href="/A240859/b240859.txt">Table of n, a(n) for n = 1..3689</a>