login
Numbers k such that 10*k - 3 is prime.
1

%I #36 Feb 05 2024 00:59:53

%S 1,2,4,5,7,10,11,13,14,16,17,20,23,26,28,31,32,34,35,37,40,46,47,49,

%T 55,56,58,59,61,62,65,68,73,76,79,80,83,86,88,89,91,94,95,97,98,100,

%U 109,110,112,119,122,124,128,130,131,133,137,143,145,149,157,160,161,163,164,166,167

%N Numbers k such that 10*k - 3 is prime.

%H Vincenzo Librandi, <a href="/A024914/b024914.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) = 1 + A102342(n). - _R. J. Mathar_, Sep 25 2013

%p select(k->isprime(10*k-3),[$1..170]); # _Muniru A Asiru_, Jul 15 2018

%t Select[Range[200], PrimeQ[10#-3]&] (* _Harvey P. Dale_, Nov 22 2012 *)

%o (Magma) [n: n in [1..200] |IsPrime(10*n-3)]; // _Vincenzo Librandi_, Nov 19 2010

%o (PARI) is(n)=isprime(10*n-3) \\ _Charles R Greathouse IV_, Jun 06 2017

%K nonn,easy

%O 1,2

%A _Clark Kimberling_