login
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
OFFSET
1,1
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
Sequence in context: A249529 A346942 A132905 * A104286 A254264 A254257
KEYWORD
nonn,base,easy
AUTHOR
Parthasarathy Nambi, Jan 04 2005
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Jan 10 2005
STATUS
approved