A213428 Numbers k such that k^8 - prime(k) is prime.

6, 10, 12, 60, 72, 168, 174, 190, 204, 230, 290, 300, 396, 536, 628, 948, 972, 990, 1014, 1042, 1050, 1174, 1254, 1324, 1326, 1428, 1566, 1602, 1662, 1684, 1808, 1854, 1866, 1942, 1950, 2070, 2154, 2170, 2206, 2214, 2234, 2332, 2388, 2508, 2660, 2668, 2784

Offset

1,1

Comments

k such that A001016(k) - A000040(k) is in A000040.

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

a(1) = 6 because 6^8 - prime(6) = 1679603 is prime.

Maple

P:= select(isprime, [2, seq(i, i=3..10^5, 2)]):
select(t -> isprime(t^8 - P[t]), [seq(i, i=2..nops(P), 2)]); # Robert Israel, Jun 02 2023

Mathematica

Select[Range[3000], PrimeQ[#^8 - Prime[#]] &] (* T. D. Noe, Jun 11 2012 *)

Crossrefs

Cf. A001016, A064712, A212881, A212883.

Sequence in context: A064166 A107371 A340874 * A006187 A346958 A288222

Adjacent sequences: A213425 A213426 A213427 * A213429 A213430 A213431

Keyword

nonn,easy

Author

Jonathan Vos Post, Jun 11 2012

Status

approved