|
%I #12 Aug 18 2019 02:33:11
%S 0,1,3,4,7,10,13,15,18,19,21,22,24,27,33,34,36,42,43,45,46,48,49,52,
%T 55,60,63,66,67,70,73,75,76,78,81,82,84,85,87,96,97,99,106,109,111,
%U 115,117,118,120,124,130,132,136,144,147,148,150,151,153,154,157,162,165,166
%N Numbers n such that 10*n + 127 is prime.
%H Harvey P. Dale, <a href="/A108855/b108855.txt">Table of n, a(n) for n = 1..1000</a>
%e If n=0 then 10*n + 127 = 127 (prime).
%e If n=34 then 10*n + 127 = 467 (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 16 2005
%t Select[Range[0,200],PrimeQ[10#+127]&] (* _Harvey P. Dale_, Feb 02 2015 *)
%o (PARI) is(n)=isprime(10*n+127) \\ _Charles R Greathouse IV_, Jun 12 2017
%K nonn,easy
%O 1,3
%A _Parthasarathy Nambi_, Jul 11 2005
%E More terms from _Emeric Deutsch_, Jul 16 2005
|
