A212881 Numbers k such that k^3 - prime(k) is prime.

2, 10, 38, 42, 44, 50, 66, 74, 80, 90, 160, 178, 186, 190, 220, 224, 228, 234, 238, 240, 242, 256, 260, 270, 272, 280, 298, 342, 366, 368, 376, 380, 396, 400, 430, 462, 474, 476, 486, 504, 518, 526, 590, 596, 598, 610, 628, 668, 670, 672, 696, 700, 702, 714

Offset: 1

Author

Zak Seidov, May 29 2012

Keywords

• nonn

Comments

All terms are trivially even.

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A064712, A212883.

Programs

Magma

[n: n in [1..400]|IsPrime(n^3-NthPrime(n))];

Mathematica

Reap[Do[If[PrimeQ[n^3-Prime[n]],Sow[n]],{n,2,1000,2}]][[2,1]]
Select[2*Range[400],PrimeQ[#^3-Prime[#]]&] (* Harvey P. Dale, Apr 28 2022 *)