login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A182940 List of divisors of the sequence A094348 in their order of occurrence. 1
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 (list; graph; refs; listen; history; text; internal format)
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 A091274

Adjacent sequences: A182937 A182938 A182939 * A182941 A182942 A182943

KEYWORD

nonn

AUTHOR

Peter Luschny, Jan 04 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 8 11:37 EST 2023. Contains 360138 sequences. (Running on oeis4.)