|
| |
|
|
A129977
|
|
Numbers n such that A119029(n)=numerator( sum( n^(k-1)/k!, k=1..n) is prime.
|
|
0
| |
|
|
2, 17, 102, 112, 316, 447, 535, 820, 1396, 1475, 1650
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Corresponding primes are A119029[a(n)] = {2, 1676770323947695709, ...}.
|
|
|
MATHEMATICA
| Do[ f=Numerator[ Sum[ n^(k-1)/k!, {k, 1, n} ] ]; If[ PrimeQ[f], Print[{n, f}] ], {n, 1, 316} ]
|
|
|
PROG
| (PARI) for( n=1, 1000, if( ispseudoprime( numerator( sum( k=1, n, n^(k-1)/k!))), print1(n", "))) (M. F. Hasler, Jun 18 2007)
|
|
|
CROSSREFS
| Cf. A119029, A120267, A120266.
Sequence in context: A023260 A174365 A119363 * A105652 A204238 A198796
Adjacent sequences: A129974 A129975 A129976 * A129978 A129979 A129980
|
|
|
KEYWORD
| more,nonn
|
|
|
AUTHOR
| Alexander Adamchuk (alex(AT)kolmogorov.com), Jun 13 2007
|
|
|
EXTENSIONS
| Edited and extended (a(6)..a(8)) by M. F. Hasler (maximilian.hasler(AT)gmail.com), Jun 18 2007
More terms from Ryan Propper (rpropper(AT)cs.stanford.edu), Jan 12 2008
|
| |
|
|
