%I #24 Feb 03 2024 00:49:53
%S 0,1,2,4,5,7,8,10,11,16,17,19,22,23,26,28,29,31,35,37,38,43,44,46,50,
%T 52,56,59,61,64,65,67,68,73,74,77,82,85,86,88,95,98,101,103,106,109,
%U 110,112,115,116,119,121,122,128,130,137,142,143,145,148,149,152,154,155
%N Numbers k such that 10k+3 is prime.
%H Daniel Starodubtsev, <a href="/A102338/b102338.txt">Table of n, a(n) for n = 1..10000</a>
%e For n=1, 10k+3 = 13 (prime).
%e For n=26, 10k+3 = 263 (prime).
%e For n=50, 10k+3 = 503 (prime).
%t Select[Range[0, 160], PrimeQ[10# + 3] &] (* _Ray Chandler_, Nov 07 2006 *)
%o (Magma) [n: n in [0..1000]| IsPrime(10*n+3)]; // _Vincenzo Librandi_, Apr 06 2011
%o (PARI) isok(n) = isprime(10*n+3); \\ _Michel Marcus_, Sep 08 2016
%Y Cf. A023238 (subsequence of primes), A030431, A049508.
%K nonn
%O 1,3
%A _Parthasarathy Nambi_, Feb 20 2005
%E Edited and extended by _Ray Chandler_, Nov 07 2006
|