A100780 Primes with decimal representation beginning 2357...

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

Links

Table of n, a(n) for n=1..25.

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 *)
Select[Prime[Range[20885, 173380]], Take[IntegerDigits[#], 4]=={2, 3, 5, 7}&] (* Harvey P. Dale, Apr 05 2025 *)

Crossrefs

Sequence in context: A249529 A346942 A132905 * A104286 A254264 A254257

Adjacent sequences: A100777 A100778 A100779 * A100781 A100782 A100783

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