%I #12 Sep 08 2022 08:45:19
%S 9,27,31,37,39,49,61,63,97,127,151,181,189,211,217,219,231,247,267,
%T 279,303,307,319,327,349,351,361,379,391,399,403,427,429,439,477,483,
%U 487,501,511,517,531,541,553,561,567,589,597,601,621,631,637,651,667
%N Numbers n such that the string 1123n is the decimal expansion of a prime number.
%C 11 and 23 are primes.
%e 9 is in the sequence because 11239 is prime.
%e 63 is in the sequence because 112363 is prime.
%e 127 is in the sequence because 1123127 is prime.
%p a:=proc(n) local z: z:=nops(convert(n,base,10)): if isprime(1123*10^z+n)=true then n else fi end: seq(a(n),n=1..750); # _Emeric Deutsch_, Jul 02 2005
%o (Magma) [ n: n in [1..700] | IsPrime(Seqint(Intseq(n) cat [3, 2, 1, 1])) ];
%Y Cf. A107645, A107644.
%K nonn,base
%O 1,1
%A _Parthasarathy Nambi_, Jun 25 2005
%E More terms from _Emeric Deutsch_, Jul 02 2005
|