|
|
A103629
|
|
Numbers n such that the string 2357n is the decimal expansion of a prime number.
|
|
2
|
|
|
23, 47, 51, 83, 87, 89, 93, 119, 153, 167, 183, 189, 219, 231, 249, 263, 279, 287, 297, 321, 347, 351, 353, 357, 363, 371, 417, 419, 423, 437, 483, 507, 527, 533, 549, 573, 587, 591, 617, 629, 639, 657, 683, 689, 701, 717, 731, 737, 741, 743, 749, 791, 801
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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:
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|