OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
23 is in the sequence because 235723 is prime.
89 is in the sequence because 235789 is prime.
167 is in the sequence because 2357167 is prime.
MAPLE
F:= proc(d) op(select(t -> isprime(2357*10^d+t), [seq(t, t=10^(d-1)+1..10^d-1, 2)])) end proc:
F(2), F(3); # Robert Israel, Jul 15 2018
MATHEMATICA
Select[Range[1000], PrimeQ[FromDigits[Join[{2, 3, 5, 7}, IntegerDigits[ #]]]]&] (* Harvey P. Dale, May 29 2014 *)
PROG
(Magma) [ n: n in [1..900] | IsPrime(Seqint(Intseq(n) cat [7, 5, 3, 2])) ];
(PARI) select(n->isprime(23570*10^logint(n, 10) + n), [1..1000]) \\ Andrew Howroyd, Jul 15 2018
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Parthasarathy Nambi, Mar 25 2005
EXTENSIONS
More terms from Vincenzo Librandi, Feb 01 2011
STATUS
approved