A105000 Primes from merging of 4 successive digits in decimal expansion of exp(2).

1847, 7127, 5737, 6079, 8431, 1217, 2179, 6547, 4603, 4783, 9221, 2213, 9001, 7537, 9133, 6581, 4679, 9281, 8807, 3301, 1019, 1933, 9337, 5303, 3307, 5153, 2081, 6947, 9479, 4793, 5683, 3923, 6121, 5209, 4663, 9871, 2281, 6473, 6263, 6379, 8429, 5861

Offset

1,1

Links

Harvey P. Dale and Vincenzo Librandi, Table of n, a(n) for n = 1..1000

The first 5,000 digits of exp(2) as calculated by Simon Plouffe at WorldWideSchool.org.

Eric Weisstein, Exponential Functions

Mathematica

With[{c=FromDigits/@Partition[RealDigits[Exp[2], 10, 1000][[1]], 4, 1]}, Select[ c, IntegerLength[#]==4&&PrimeQ[#]&]] (* Harvey P. Dale, Nov 02 2011 *)

Crossrefs

Sequence in context: A137873 A054814 A123107 * A094377 A080395 A092003

Adjacent sequences: A104997 A104998 A104999 * A105001 A105002 A105003

Keyword

nonn,base

Author

Andrew G. West (WestA(AT)wlu.edu), Mar 31 2005

Extensions

Changed offset from 0 to 1 by Vincenzo Librandi, Apr 28 2013

Status

approved