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,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))];

Crossrefs

Cf. A064712, A212883.

Sequence in context: A124646 A124635 A005968 * A177173 A046241 A048499

Adjacent sequences: A212878 A212879 A212880 * A212882 A212883 A212884

Keyword

nonn

Author

Zak Seidov, May 29 2012

Status

approved