|
| |
|
|
A060765
|
|
Numbers n such that every difference between consecutive divisors (ordered by increasing magnitude) of n is also a divisor of n.
|
|
2
| |
|
|
1, 2, 4, 6, 8, 12, 16, 18, 20, 24, 32, 36, 42, 48, 54, 60, 64, 72, 96, 100, 108, 120, 128, 144, 156, 162, 168, 180, 192, 216, 240, 256, 272, 288, 294, 300, 324, 342, 360, 384, 432, 480, 486, 500, 504, 512, 576, 600, 648, 720, 768, 840, 900, 960, 972, 1008, 1024
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Equivalently, A060763(n)=0. Powers of 2 and factorials up to 7! are here.
|
|
|
LINKS
| Donovan Johnson, Table of n, a(n) for n = 1..750
|
|
|
EXAMPLE
| For n = 12, divisors={1, 2, 3, 4, 6, 12}; differences={1, 1, 1, 2, 6}; every difference is a divisor, so 12 is in the sequence.
|
|
|
MATHEMATICA
| test[n_ ] := Length[Complement[Drop[d=Divisors[n], 1]-Drop[d, -1], d]]==0; Select[Range[1, 1024], test]
|
|
|
CROSSREFS
| Cf. A060683, A060763.
Sequence in context: A124240 A068997 A067712 * A140110 A128397 A120383
Adjacent sequences: A060762 A060763 A060764 * A060766 A060767 A060768
|
|
|
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
|
| |
|
|
