This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A135615 a(n) = number of positive divisors of (n+1) that are each the average of a positive divisor of n and a positive divisor of (n+2). 0
 2, 2, 3, 2, 3, 2, 4, 3, 4, 2, 3, 2, 4, 4, 4, 2, 3, 2, 5, 3, 4, 2, 4, 3, 4, 3, 4, 2, 3, 2, 4, 3, 4, 4, 5, 2, 4, 3, 4, 2, 3, 2, 4, 3, 4, 2, 4, 3, 5, 3, 4, 2, 5, 4, 6, 3, 4, 2, 3, 2, 4, 4, 6, 4, 4 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS EXAMPLE The divisors of 5 are (1,5). The divisors of 6 are (1,2,3,6). And the divisors of 7 are (1,7). Looking at the divisors of 6, 1 is the average of 1 (from the divisors of 5) and 1 (from the divisors of 7). 3 is the average of 5 (from the divisors of 5) and 1 (from the divisors of 7). And 6 is the average of 5 (from the divisors of 5) and 7 (from the divisors of 7). 2 is not the average of any divisor of 5 and any divisor of 7. There are 3 divisors of 6 that are such averages, so a(5) = 3. MATHEMATICA Table[Length[Intersection[Divisors[n + 1], Mean /@ Flatten[Outer[List, Divisors[n], Divisors[n + 2]], 1]]], {n, 1, 65}] [From Brad Chalfan (brad(AT)chalfan.net), Aug 31 2010] CROSSREFS Sequence in context: A181796 A067554 A135981 * A166469 A080226 A060741 Adjacent sequences:  A135612 A135613 A135614 * A135616 A135617 A135618 KEYWORD more,nonn AUTHOR Leroy Quet Feb 28 2008 EXTENSIONS More terms and Mathematica program from Brad Chalfan (brad(AT)chalfan.net), Aug 31 2010 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .