%I #13 Aug 22 2021 19:02:15
%S 13,14,15,17,18,20,21,23,24,29,30,32,35,36,39,41,42,44,48,50,51,56,57,
%T 59,63,65,69,72,74,77,78,80,81,86,87,90,95,98,99,101,108,111,114,116,
%U 119,122,123,125,128,129,132,134,135,141,143,150,155,156,158,161,162
%N Numbers n such that 10*n - 127 is prime.
%e If n=13 then 10*n - 127 = 3 (prime).
%e If n=39 then 10*n - 127 = 263 (prime).
%p a:=proc(n) if isprime(10*n-127)=true then n else fi end: seq(a(n),n=0..200); # _Emeric Deutsch_, Jul 18 2005
%t Select[Range[13,200],PrimeQ[10#-127]&] (* _Harvey P. Dale_, Aug 22 2021 *)
%o (PARI) is(n)=isprime(10*n-127) \\ _Charles R Greathouse IV_, Jun 13 2017
%K nonn,easy
%O 1,1
%A _Parthasarathy Nambi_, Jul 11 2005
%E More terms from _Emeric Deutsch_, Jul 18 2005
|