|
|
A105004
|
|
Primes from merging of 8 successive digits in decimal expansion of exp(2).
|
|
1
|
|
|
38905609, 70551847, 22522573, 52257379, 91217947, 78392213, 33980777, 89560741, 54141467, 92812933, 33010193, 51532081, 84694793, 94793029, 47930299, 13558771, 14456831, 56831239, 83123923, 98712281, 87122813
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[FromDigits/@Partition[RealDigits[Exp[2], 10, 800][[1]], 8, 1], #>9999999&&PrimeQ[#]&] (* Vincenzo Librandi, Apr 26 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Andrew G. West (WestA(AT)wlu.edu), Mar 31 2005
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|