|
| |
|
|
A060763
|
|
Number of distinct differences between consecutive divisors (ordered by increasing magnitude) of n which are not also divisors of n.
|
|
7
| |
|
|
0, 0, 1, 0, 1, 0, 1, 0, 2, 1, 1, 0, 1, 1, 2, 0, 1, 0, 1, 0, 3, 1, 1, 0, 2, 1, 3, 1, 1, 1, 1, 0, 3, 1, 3, 0, 1, 1, 3, 1, 1, 0, 1, 1, 4, 1, 1, 0, 2, 2, 3, 1, 1, 0, 3, 2, 3, 1, 1, 0, 1, 1, 4, 0, 3, 1, 1, 1, 3, 3, 1, 0, 1, 1, 3, 1, 3, 1, 1, 2, 4, 1, 1, 1, 3, 1, 3, 1, 1, 1, 2, 1, 3, 1, 3, 0, 1, 2, 4, 0, 1, 1, 1, 1, 5
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,9
|
|
|
EXAMPLE
| For n=70, divisors={1,2,5,7,10,14,35,70}; differences={1,3,2,3,4,21,35}; the differences {3,4,21} are not divisors, so a(70)=3.
|
|
|
MATHEMATICA
| a[n_] := Length[Complement[Drop[d=Divisors[n], 1]-Drop[d, -1], d]]
|
|
|
CROSSREFS
| Cf. A060682, A060738, A060764.
Sequence in context: A037870 A206588 A026920 * A131576 A100073 A075685
Adjacent sequences: A060760 A060761 A060762 * A060764 A060765 A060766
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Apr 24 2001
|
|
|
EXTENSIONS
| Edited by Dean Hickerson (dean.hickerson(AT)yahoo.com), Jan 22 2002
|
| |
|
|
