|
%I #13 Sep 08 2022 08:45:19
%S 0,3,6,12,17,18,21,23,30,32,33,35,41,47,56,69,72,80,83,87,90,93,95,96,
%T 98,102,104,116,117,123,132,135,137,149,153,159,161,164,167,188,191,
%U 194,201,203,206,210,216,219,224,228,233,237,242,243,245,249,252,254
%N Numbers n such that 1000n + 911 is prime.
%e 0 is in the sequence because 1000*0+911 = 911 is prime.
%e 32 is in the sequence because 1000*32+911 = 32911 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,911))=true then n else fi end: seq(a(n),n=0..360); # c is the process which concatenates two positive integers # _Emeric Deutsch_, Aug 07 2005
%o (Magma) [ n: n in [0..300] | IsPrime(1000*n+911) ];
%o (PARI) is(n)=isprime(1000*n+911) \\ _Charles R Greathouse IV_, Jun 13 2017
%K nonn,easy
%O 1,2
%A _Parthasarathy Nambi_, Jul 25 2005
%E More terms from _Emeric Deutsch_, Aug 07 2005
|
