|
| |
|
|
A111164
|
|
Number of distinct integers of the form (n+k)/|(n-k)| for k>0.
|
|
1
| |
|
|
2, 3, 5, 5, 6, 7, 6, 7, 9, 9, 6, 10, 6, 9, 12, 9, 6, 13, 6, 12, 13, 9, 6, 14, 10, 9, 13, 13, 6, 17, 6, 11, 13, 9, 13, 18, 6, 9, 13, 16, 6, 18, 6, 13, 20, 9, 6, 18, 10, 15, 13, 13, 6, 19, 14, 16, 13, 9, 6, 23, 6, 9, 20, 13, 14, 19, 6, 13, 13, 20, 6, 23, 6, 9, 20, 13, 14, 19, 6, 20, 17, 9, 6
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| For n=14 we have integer values of this form when k={7; 10; 12; 13; 15; 16; 18; 19; 21; 28; 42} and (14+k)/|(14-k)| = {3, 6, 13, 27, 29, 15, 8, 5, 3, 2}. Thus a(14) = 9 because 3 is present twice.
|
|
|
MATHEMATICA
| f[n_] := Length[ Union[ Select[(n + #)/Abs[n - # ] & /@ Delete[ Range[ Floor[3n]], n], IntegerQ[ # ] &]]]; Array[f, 83] (* Robert G. Wilson v *)
|
|
|
CROSSREFS
| Cf. A111150.
Sequence in context: A003660 A169787 A165959 * A029910 A063677 A078903
Adjacent sequences: A111161 A111162 A111163 * A111165 A111166 A111167
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Paolo P. Lava & Giorgio Balzarotti (paoloplava(AT)gmail.com), Oct 21 2005
|
|
|
EXTENSIONS
| Corrected and extended by Robert G. Wilson v (rgwv(at)rgwv.com), Oct 31 2005
|
| |
|
|
