Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A091291
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A091291 Numbers x such that the quotient q=(sigma[x]+sigma[x+1])/sigma[2x+1] is smaller than 0.5, that is (sigma[x]+sigma[x+1])/>2.sigma[2x+1]; sigma=A000203. +0
1
1283782, 3445942, 4662157, 5743237, 7770262, 8806297, 8986477, 9572062, 9920137, 10472962, 11356537, 11554042, 12635122, 12870742 (list; graph; listen)
OFFSET

1,1

MATHEMATICA

f[x_] := (DivisorSigma[1, x]+DivisorSigma[1, x+1])/DivisorSigma[1, 2*x+1] Do[s=f[n]; If[ !Greater[s, 0.5], Print[{n, s//N}]]

CROSSREFS

Cf. A000203, A091287-A091290.

Sequence in context: A147670 A058894 A118419 this_sequence A163681 A002806 A053082

Adjacent sequences: A091288 A091289 A091290 this_sequence A091292 A091293 A091294

KEYWORD

nonn

AUTHOR

Labos E. (labos(AT)ana.sote.hu), Feb 16 2004

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 24 23:16 EST 2009. Contains 167481 sequences.


AT&T Labs Research