login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A090585 Numerator of (Sum_{k=1..n} k) / (Product_{k=1..n} k). 10
1, 3, 1, 5, 1, 7, 1, 1, 1, 11, 1, 13, 1, 1, 1, 17, 1, 19, 1, 1, 1, 23, 1, 1, 1, 1, 1, 29, 1, 31, 1, 1, 1, 1, 1, 37, 1, 1, 1, 41, 1, 43, 1, 1, 1, 47, 1, 1, 1, 1, 1, 53, 1, 1, 1, 1, 1, 59, 1, 61, 1, 1, 1, 1, 1, 67, 1, 1, 1, 71, 1, 73, 1, 1, 1, 1, 1, 79, 1, 1, 1, 83, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

If the offset is set to 2 then [a(n) <> 1] is the indicator function of the odd primes ([] Iverson bracket). [Peter Luschny, Jul 05 2009]

LINKS

Table of n, a(n) for n=1..83.

FORMULA

a(n) = A000217(n) / A069268(n).

a(n) = A089026(n+1) for n>1.

Also for n>1, a(n) is a numerator of determinant of (n-1) X (n-1) matrix with M(i,j) = (i+2)/(i+1) if i=j, otherwise 1. E.g., a(2) = Numerator[Det[{{3/2}}]] = Numerator[3/2] = 3. a(3) = Numerator[Det[{{3/2,1},{1,4/3}}]] = Numerator[1/1] = 1. a(4) = Numerator[Det[{{3/2,1,1},{1,4/3,1},{1,1,5/4}}]] = Numerator[5/12] = 5. - Alexander Adamchuk, May 26 2006

a(n) = gcd(n*(n+1)/2, n!+1). [Jaume Oliver Lafont, Jan 23 2009]

EXAMPLE

For n=5, (1+2+3+4+5)/(1*2*3*4*5) = 15/120 = 1/8, so a(5) = 1. For n=6, (1+2+3+4+5+6)/(1*2*3*4*5*6) = 21/720 = 7/240, so a(6) = 7. - Michael B. Porter, Jul 02 2016

MAPLE

a := n -> denom(2*n!/(n+1)); # Peter Luschny, Jul 05 2009

MATHEMATICA

With[{nn=100}, Numerator[Accumulate[Range[nn]]/Rest[FoldList[Times, 1, Range[nn]]]]] (* Harvey P. Dale, Sep 09 2014 *)

PROG

(PARI) for(n=1, 100, print1(gcd(n*(n+1)/2, round(factorial(n))+1), ", ")); \\ Jaume Oliver Lafont, Jan 23 2009

CROSSREFS

Denominator = A090586.

Cf. A000217, A069268, A089026, A118679.

Sequence in context: A129510 A225656 A087913 * A147661 A155457 A274658

Adjacent sequences:  A090582 A090583 A090584 * A090586 A090587 A090588

KEYWORD

nonn,frac

AUTHOR

Reinhard Zumkeller, Dec 03 2003

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 23 02:37 EDT 2019. Contains 321422 sequences. (Running on oeis4.)