A024901 Numbers k such that 7*k - 2 is prime.

1, 3, 7, 9, 13, 15, 19, 25, 33, 37, 39, 45, 55, 57, 63, 67, 73, 75, 85, 87, 97, 99, 103, 105, 109, 123, 127, 133, 139, 145, 153, 157, 165, 169, 175, 177, 183, 187, 189, 205, 207, 213, 219, 223, 229, 237, 243, 249, 255, 259, 267, 279, 283, 285, 295, 309, 315, 325, 327, 337, 339

Offset

1,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Formula

a(n) = A089079(n) - 3.

Mathematica

Select[Range[400], PrimeQ[7# - 2] &] (* Vincenzo Librandi, Sep 26 2012 *)

Prog

(Magma) [ n: n in [1..500] | IsPrime(7*n-2) ]; // Vincenzo Librandi, Nov 20 2010
(PARI) is(n)=isprime(7*n-2) \\ Charles R Greathouse IV, May 22 2017

Crossrefs

Cf. A089079.

Sequence in context: A073671 A172367 A336234 * A258011 A000959 A204085

Adjacent sequences: A024898 A024899 A024900 * A024902 A024903 A024904

Keyword

nonn,easy

Author

Clark Kimberling

Status

approved