Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A027760
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A027760 Denominator of Sum 1/p; p-1 | n. +0
18
2, 6, 2, 30, 2, 42, 2, 30, 2, 66, 2, 2730, 2, 6, 2, 510, 2, 798, 2, 330, 2, 138, 2, 2730, 2, 6, 2, 870, 2, 14322, 2, 510, 2, 6, 2, 1919190, 2, 6, 2, 13530, 2, 1806, 2, 690, 2, 282, 2, 46410, 2, 66, 2, 1590, 2, 798, 2, 870 (list; graph; listen)
OFFSET

1,1

COMMENT

The gcd of integers x^(n+1)-x, for all integers x. - Roger Cuculiere (cuculier(AT)imaginet.fr), Jan 19 2002

If each x in a ring satisfies x^(n+1)=x, the characteristic of the ring is a divisor of a(n) (Rosenblum 1977). [From Daniel M. Rosenblum (DMRosenblum(AT)world.oberlin.edu), Sep 24 2008]

A formula in A091137 suggests that this is the same as A140770. [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 23 2009]

The denominators of the Bernoulli numbers for n>0. B_n sequence begins 1, -1/2, 1/6, 0/2, -1/30, 0/2, 1/42, 0/2, ... This is an alternative version of A027642 suggested by the theorem of Clausen. To add a(0) = 1 has been proposed in A141056. [From Peter Luschny (peter(AT)luschny.de), Apr 29 2009]

REFERENCES

S. C. Locke and A. Mandel, Problem E 2901, American Mathematical Monthly 88 (1981), p. 538. Solution in Vol. 90 (1983), pp. 212-213. [From Daniel M. Rosenblum (DMRosenblum(AT)world.oberlin.edu), Jul 31 2008]

D. M. Rosenblum, Problem 1019, Mathematics Magazine 50 (1977), p. 164. Solution by T. Orloff in Vol. 52 (1979), p. 50.

Clausen, Thomas, "Lehrsatz aus einer Abhandlung Ueber die Bernoullischen Zahlen", Astr. Nachr. 17 (1840), 351-352. [From Peter Luschny (peter(AT)luschny.de), Apr 29 2009]

LINKS

Wikipedia, Bernoulli number [From Peter Luschny (peter(AT)luschny.de), Apr 29 2009]

MAPLE

A027760 := proc(n) local s, p; s := 0 ; p := 2; while p <= n+1 do if n mod (p-1) = 0 then s := s+1/p; fi; p := nextprime(p) ; od: denom(s) ; end: [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 12 2008]

MATHEMATICA

Contribution from Peter Luschny (peter(AT)luschny.de), Apr 29 2009: (Start)

clausen[n_] := Product[i, {i, Select[ Map[ # + 1 &, Divisors[n]], PrimeQ]}]

Table[clausen[i], {i, 1, 20}] (End)

CROSSREFS

Cf. A027759.

Cf. A027642, A141056. [From Peter Luschny (peter(AT)luschny.de), Apr 29 2009]

Adjacent sequences: A027757 A027758 A027759 this_sequence A027761 A027762 A027763

Sequence in context: A131980 A076743 A141056 this_sequence A140770 A141498 A144845

KEYWORD

nonn,frac

AUTHOR

N. J. A. Sloane (njas(AT)research.att.com).

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified November 9 12:23 EST 2009. Contains 166233 sequences.


AT&T Labs Research