|
Search: id:A129977
|
|
|
| A129977 |
|
Numbers n such that A119029(n)=numerator( sum( n^(k-1)/k!, k=1..n) is prime. |
|
+0
1
|
|
| 2, 17, 102, 112, 316, 447, 535, 820, 1396, 1475, 1650
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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} ]
|
|
PROGRAM
|
(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: A127533 A023260 A119363 this_sequence A105652 A155845 A115354
Adjacent sequences: A129974 A129975 A129976 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
