|
Search: id:A091560
|
|
|
| A091560 |
|
Fractional part of e^a(n) is the largest yet. |
|
+0
1
|
| |
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
a = 0; Do[b = N[ FractionalPart[ N[ E, 2^12]^n], 24]; If[b > a, Print[n]; a = b], {n, 1, 9400}] (from Robert G. Wilson v Mar 16 2004)
|
|
PROGRAM
|
(PARI) E=2.718281828459045235360287471352662497757247093699959574966967627724076630353547594571382178525166427427466391932003059921817413596629043572900334295260595630738132328627943490763233829880753195251018999 ym=0; for(i=1, 1000, x=E^i; y=x-floor(x); if(y>ym, print1(", "i); ym=y))
|
|
CROSSREFS
|
Sequence in context: A089111 A127873 A057452 this_sequence A061877 A119284 A082231
Adjacent sequences: A091557 A091558 A091559 this_sequence A091561 A091562 A091563
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Jon Perry (perry(AT)globalnet.co.uk), Mar 04 2004
|
|
EXTENSIONS
|
a(8) from Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 16 2004
|
|
|
Search completed in 0.002 seconds
|
