A068372 Numbers m such that the positive values of m - A002110(k) are all primes (k > 0).

2, 4, 5, 9, 13, 19, 25, 43, 49, 73, 103, 109, 133, 169, 229, 313, 403, 493, 649, 883, 1093, 1489, 1699, 1789, 2143, 2209, 2299, 3463, 3853, 4453, 5653, 6583, 6913, 9139, 12283, 12643, 13039, 14743, 15649, 16483, 17629, 21523, 22069, 24253, 27949, 41623, 43789

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..420

Mathematica

q[k_] := Module[{r = 1, p = 2}, While[r *= p; r < k && PrimeQ[k - r], p = NextPrime[p]]; r >= k]; Select[Range[2, 25000], q] (* Amiram Eldar, Jun 18 2025 *)

Crossrefs

Cf. A002110, A068373 (subsequence).

Sequence in context: A218934 A348176 A325716 * A068370 A364467 A357488

Adjacent sequences: A068369 A068370 A068371 * A068373 A068374 A068375

Keyword

nonn

Author

Naohiro Nomoto, Mar 01 2002

Extensions

a(45)-a(47) from Amiram Eldar, Jun 18 2025

Status

approved