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

Author

Clark Kimberling

Keywords

• nonn
• easy

Links

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

Programs

Magma

[n: n in [1..200] |IsPrime(10*n-3)]; // Vincenzo Librandi, Nov 19 2010

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 *)

PARI

is(n)=isprime(10*n-3) \\ Charles R Greathouse IV, Jun 06 2017

Formula

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