|
|
A027438
|
|
Largest prime factor of [e*2^n].
|
|
2
|
|
|
2, 5, 5, 7, 43, 43, 173, 347, 139, 107, 23, 293, 293, 293, 293, 293, 79, 79, 883, 883, 114013, 114013, 114013, 114013, 1232573, 1232573, 1499, 364841611, 364841611, 364841611, 364841611, 170801, 170801, 56812319, 56812319, 56812319, 56812319
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[FactorInteger[Floor[E 2^n]][[-1, 1]], {n, 0, 40}] (* Harvey P. Dale, May 31 2013 *)
|
|
PROG
|
(PARI) for(n=0, 22, print(factor(floor(exp(1)*2^n))))
(Magma) [Max(PrimeDivisors(Floor(Exp(1)*2^n))):n in [0..37]]; // Marius A. Burtea, Nov 05 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|