|
%I #17 Oct 21 2023 19:40:56
%S 0,3,5,8,9,11,14,15,17,18,21,23,30,32,33,36,39,42,44,47,50,53,54,56,
%T 59,60,65,66,71,72,78,81,84,87,89,92,93,95,96,99,105,107,108,110,113,
%U 119,120,122,126,128,135,137,138,141,143,147,150,152,162,164,170,171,173
%N Numbers k such that 10*k + 101 is prime.
%H G. C. Greubel, <a href="/A108594/b108594.txt">Table of n, a(n) for n = 1..10000</a>
%e If n=33 then 10*n + 101 = 431 (prime).
%p a:=proc(n) if isprime(10*n+101)=true then n else fi end: seq(a(n),n=0..200); # _Emeric Deutsch_, Jul 13 2005
%t Select[Range[0,300], PrimeQ[10*# +101] &] (* _G. C. Greubel_, Oct 21 2023 *)
%o (PARI) is(n)=isprime(10*n+101) \\ _Charles R Greathouse IV_, Jun 13 2017
%o (Magma) [n: n in [0..300] | IsPrime(10*n+101)]; // _G. C. Greubel_, Oct 21 2023
%o (SageMath) [n for n in (0..300) if is_prime(10*n+101)] # _G. C. Greubel_, Oct 21 2023
%Y Cf. A030430, A045453, A108595.
%K nonn,easy
%O 1,2
%A _Parthasarathy Nambi_, Jul 05 2005
%E More terms from _Emeric Deutsch_, Jul 13 2005
|
