|
| |
|
|
A129978
|
|
Numbers n such that A120265(n)=numerator( sum( 1/k!, k=1..n )) is a prime.
|
|
0
| |
|
|
2, 3, 4, 5, 6, 7, 12, 16, 19, 21, 22, 25, 41, 114, 181, 236, 2003
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Corresponding primes are A120265[a(n)] = {3, 5, 41, 103, 1237, 433, 164611949, 35951249665217, 52255141388393, 43894318766250120011, 386270005143001056097, 53952693026046706215979, 1249584099900912571604389306768231303904375213027, ...}.
a(17)>1000 ; A120265(1000)~2.9e2564=(e-1) A061355(1000). (M. F. Hasler, Jun 18 2007)
|
|
|
MATHEMATICA
| Do[ f=Numerator[ Sum[ 1/k!, {k, 1, n} ] ]; If[ PrimeQ[f], Print[{n, f}] ], {n, 1, 236} ]
|
|
|
PROG
| (PARI) t=0; for( n=1, 1000, if( ispseudoprime( numerator( t+=1/n!)), print( n", " ))) (M. F. Hasler, Jun 18 2007)
|
|
|
CROSSREFS
| Cf. A120265, A061354, A061355.
Sequence in context: A108948 A107818 A039952 * A200446 A033079 A173819
Adjacent sequences: A129975 A129976 A129977 * A129979 A129980 A129981
|
|
|
KEYWORD
| more,nonn
|
|
|
AUTHOR
| Alexander Adamchuk (alex(AT)kolmogorov.com), Jun 13 2007
|
|
|
EXTENSIONS
| Edited by M. F. Hasler (Maximilian.Hasler(AT)gmail.com), Jun 18 2007
a(17) = 2003 from Alexander Adamchuk (alex(AT)kolmogorov.com), May 02 2010
|
| |
|
|
