A024914 Numbers k such that 10*k - 3 is prime.

1, 2, 4, 5, 7, 10, 11, 13, 14, 16, 17, 20, 23, 26, 28, 31, 32, 34, 35, 37, 40, 46, 47, 49, 55, 56, 58, 59, 61, 62, 65, 68, 73, 76, 79, 80, 83, 86, 88, 89, 91, 94, 95, 97, 98, 100, 109, 110, 112, 119, 122, 124, 128, 130, 131, 133, 137, 143, 145, 149, 157, 160, 161, 163, 164, 166, 167

Offset

1,2

Links

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

Formula

a(n) = 1 + A102342(n). - R. J. Mathar, Sep 25 2013

Maple

select(k->isprime(10*k-3), [$1..170]); # Muniru A Asiru, Jul 15 2018

Mathematica

Select[Range[200], PrimeQ[10#-3]&] (* Harvey P. Dale, Nov 22 2012 *)

Prog

(Magma) [n: n in [1..200] |IsPrime(10*n-3)]; // Vincenzo Librandi, Nov 19 2010
(PARI) is(n)=isprime(10*n-3) \\ Charles R Greathouse IV, Jun 06 2017

Crossrefs

Sequence in context: A133254 A080725 A182337 * A189636 A117741 A019271

Adjacent sequences: A024911 A024912 A024913 * A024915 A024916 A024917

Keyword

nonn,easy

Author

Clark Kimberling

Status

approved