A109605 - OEIS

%I #19 Sep 08 2022 08:45:19

%S 6,7,12,18,30,39,67,69,72,82,96,105,109,118,120,123,132,142,144,147,

%T 148,156,159,166,175,181,184,195,204,205,211,223,225,228,243,244,246,

%U 247,259,270,271,288,303,312,334,342,343,345,351,355,364,366,376,379

%N Numbers n such that 100000n + 91111 is prime.

%e 96 is in the sequence because 100000*96+91111 = 9691111 is prime.

%p c:=proc(x,y) local s: s:=proc(m) nops(convert(m,base,10)) end: x*10^s(y)+y: end: a:=proc(n) if isprime(c(n,91111)) then n fi end: seq(a(n),n=0..400); # c is the process which concatenates two positive integers # _Emeric Deutsch_, Aug 07 2005

%t Select[Range[400],PrimeQ[100000#+91111]&] (* _Harvey P. Dale_, Jul 31 2014 *)

%o (Magma) [ n: n in [0..400] | IsPrime(100000*n+91111) ];

%o (PARI) is(n)=isprime(100000*n+91111) \\ _Charles R Greathouse IV_, Jun 13 2017

%K nonn,easy

%O 1,1

%A _Parthasarathy Nambi_, Jul 30 2005

%E More terms from _Emeric Deutsch_, Aug 07 2005