|
|
A100780
|
|
Primes with decimal representation beginning 2357...
|
|
0
|
|
|
235723, 235747, 235751, 235783, 235787, 235789, 235793, 2357009, 2357027, 2357029, 2357039, 2357057, 2357059, 2357071, 2357077, 2357099, 2357119, 2357153, 2357167, 2357183, 2357189, 2357219, 2357231, 2357249, 2357263
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Flatten[ Table[ Select[ Table[ FromDigits[ Flatten[ IntegerDigits /@ {2, 3, 5, 7, PadLeft[ IntegerDigits[i], n]}]], {i, 10^n}], PrimeQ[ # ] &], {n, 3}]] (* Robert G. Wilson v, Jan 10 2004 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|