%I A037028
%S A037028 2,3,7,19,53,149,401,1097,2971,8101,22027,59879,162751,442399,1202603,
%T A037028 3269011,8886109,24154957,65659969,178482289,485165237,1318815713,
%U A037028 3584912833,9744803443,26489122147,72004899319
%N A037028 Prime closest to e^n.
%H A037028 Charles Greathouse, <a href="b037028.txt">Table of n, a(n) for n = 0..500</
               a>
%t A037028 NextPrime[ n_Integer ] := Module[ {k = n + 1}, While[ ! PrimeQ[ k ], 
               k++ ]; Return[ k ] ]; PrevPrime[ n_Integer ] := Module[ {k = n - 
               1}, While[ ! PrimeQ[ k ], k-- ]; Return[ k ] ]; Do[ a = Round[ N[ 
               E^n ] ]; b = NextPrime[ Round[ N[ E^n ] ] - 1 ]; c = PrevPrime[ Round[ 
               N[ E^n ] ] + 1 ]; If[ b - N[ E^n ] > N[ E^n ] - c, Print[ c ], Print[ 
               b ] ], {n, 0, 25} ]
%Y A037028 Sequence in context: A091410 A122724 A033844 this_sequence A052919 A005807 
               A167422
%Y A037028 Adjacent sequences: A037025 A037026 A037027 this_sequence A037029 A037030 
               A037031
%K A037028 nonn
%O A037028 0,1
%A A037028 G. L. Honaker, Jr. (honak3r(AT)gmail.com)
%E A037028 Corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 
               16 2000