A212881 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

All terms are trivially even.

LINKS

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

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 *)

PROG

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