A182940 List of divisors of the sequence A094348 in their order of occurrence.

1, 2, 4, 3, 6, 12, 8, 24, 9, 18, 36, 16, 48, 5, 10, 15, 20, 30, 60, 72, 40, 120, 45, 90, 180, 80, 240, 360, 7, 14, 21, 28, 35, 42, 70, 84, 105, 140, 210, 420, 144, 720, 56, 168, 280, 840

Offset

1,2

Comments

Read A094348 term-by-term, compute the divisors of each term, write down any divisors not seen before.

Links

Table of n, a(n) for n=1..46.

Example

1    [1]
2    [2]
4    [4]
6    [3, 6]
12   [12]
24   [8, 24]
36   [9, 18, 36]
48   [16, 48]
60   [5, 10, 15, 20, 30, 60]
72   [72]
120  [40, 120]
180  [45, 90, 180]
240  [80, 240]
360  [360]
420  [7, 14, 21, 28, 35, 42, 70, 84, 105, 140, 210, 420]
720  [144, 720]
840  [56, 168, 280, 840]
1260 [63, 126, 252, 315, 630, 1260]
1680 [112, 336, 560, 1680]
2520 [504, 2520]
5040 [1008, 5040]

Maple

concat := (a, h)->[op(a), op(sort(convert(h, list)))];
DivisorsInOrder := proc(S) local A, H, T, s;
T := {}; A := [];
for s in S do
   H := numtheory[divisors](s) minus T:
   if H <> {} then
      A := concat(A, H);
      T := T union H
   fi
od;
A end:
A182940 := DivisorsInOrder(A094348);

Crossrefs

Cf. A094348, A096179.

Sequence in context: A120947 A222600 A046793 * A101278 A329902 A366028

Adjacent sequences: A182937 A182938 A182939 * A182941 A182942 A182943

Keyword

nonn

Author

Peter Luschny, Jan 04 2011

Status

approved