%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_