The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A005276 Betrothed (or quasi-amicable) numbers. (Formerly M5291) 15
 48, 75, 140, 195, 1050, 1575, 1648, 1925, 2024, 2295, 5775, 6128, 8892, 9504, 16587, 20735, 62744, 75495, 186615, 196664, 199760, 206504, 219975, 266000, 309135, 312620, 507759, 526575, 544784, 549219, 573560, 587460, 817479, 1000824, 1057595, 1081184 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Members of a pair (m,n) such that sigma(m)=sigma(n)=m+n+1, where sigma=A000203. - M. F. Hasler, Nov 04 2008 Also members of a pair (m,k) such that m = sum of nontrivial divisors of k and k = sum of nontrivial divisors of m. - Juri-Stepan Gerasimov, Sep 11 2009 Also numbers that are terms of cycles when iterating Chowla's function A048050. - Reinhard Zumkeller, Feb 09 2013 REFERENCES R. K. Guy, Unsolved Problems in Number Theory, B5. N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence). LINKS Giovanni Resta, Table of n, a(n) for n = 1..7819 (terms < 10^13, terms 1..100 from T. D. Noe, 101..1000 from Donovan Johnson) P. Hagis and G. Lord, Quasi-amicable numbers, Math. Comp. 31 (1977), 608-611. Paul Pollack, Quasi-Amicable Numbers are Rare, Journal of Integer Sequences, Vol. 14 (2011), Article 11.5.2. Eric Weisstein's World of Mathematics, Quasiamicable Pair. FORMULA A005276 = A003502 union A003503. - M. F. Hasler, Nov 04 2008 MATHEMATICA bnoQ[n_]:=Module[{dsn=DivisorSigma[1, n], m, dsm}, m=dsn-n-1; dsm= DivisorSigma[ 1, m]; dsm==dsn==n+m+1]; Select[Range[2, 1100000], bnoQ] (* Harvey P. Dale, May 12 2012 *) PROG (PARI) isA005276(n) = { local(s=sigma(n)); s>n+1 & sigma(s-n-1)==s } for( n=1, 10^6, isA005276(n) & print1(n", ")) \\ M. F. Hasler, Nov 04 2008 (Haskell) a005276 n = a005276_list !! (n-1) a005276_list = filter p [1..] where    p z = p' z [0, z] where      p' x ts = if y `notElem` ts then p' y (y:ts) else y == z                where y = a048050 x -- Reinhard Zumkeller, Feb 09 2013 CROSSREFS Cf. A003502, A003503. Cf. A048050, subsequence of A057533. Sequence in context: A165039 A211721 A057533 * A328370 A143722 A261709 Adjacent sequences:  A005273 A005274 A005275 * A005277 A005278 A005279 KEYWORD nonn,nice AUTHOR EXTENSIONS Extended by T. D. Noe, Dec 29 2011 STATUS approved

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

Last modified May 25 10:05 EDT 2022. Contains 354066 sequences. (Running on oeis4.)