login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo

Please make a donation to keep the OEIS running. We are now in our 56th year. In the past year we added 10000 new sequences and reached almost 9000 citations (which often say "discovered thanks to the OEIS").
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A162180 Let a(n) = d[m(n),i] be the i-th divisor of the integer m(n) and the index j such that d[m(n),i] = d[m(n+1),j], m(n+1) is the first integer > m(n). The sequence a(n), starting with m(1) = 1, i = 1 is given by the conditions: a(1) = 1 and a(n+1) is the first predecessor of a(n) if n even, or the first successor of a(n) if n odd. 0
1, 2, 1, 5, 2, 3, 1, 2, 1, 19, 2, 4, 2, 23, 3, 4, 2, 3, 1, 2, 1, 5, 3, 31, 4, 8, 4, 5, 1, 2, 1, 149, 2, 3, 1, 2, 1, 307, 2, 4, 2, 311, 3, 4, 2, 3, 1, 2, 1, 13, 2, 4, 2, 5, 3, 6, 4, 13, 11, 22, 11, 19, 14, 22, 20, 28, 14, 83, 15, 18, 9, 11, 2, 4, 2, 653, 3, 6, 4, 17, 13, 14, 12, 13, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Conjecture: the sequence is the union of an infinity subsets of the form {1, 2}, {1, 5, 2, 3}, ..., {1, p, ..., q}, ... where the number 1 is the first element of each subset.

The corresponding values of m(n) are {1, 2, 4, 5, 10, 12, 15, 16, 18, 19, 38, 40, 44, 46, 69, 72, 76, 78, 81, 82, 84, 85, 90, 93, 124, ...}.

LINKS

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

EXAMPLE

a(1) = 1 ;

a(2) = 2 because the divisors of 2 are {1, 2} and 2 is the first successor of 1;

a(3) = 1 because the divisors of 3 are {1, 3} and 1 is the first predecessor of 2;

a(4) = 5 because the divisors of 5 are {1, 5} and 5 is the first successor of 1;

a(5) = 2 because the divisors of 10 are {1, 2, 5, 10} and 2 is the first predecessor of 5;

a(6) = 3 because the divisors of 12 are {1, 2, 3, 4, 6, 12} and 3 is the first successor of 2.

MAPLE

with(numtheory):T:=array(1..162):T[1]:=1:d:=1:i:=2:for n from 2 to 5000 do:x:=divisors(n):n1:=nops(x):j:=0:for m from 1 to n1 while(j=0) do:if x[m]= d then z:=x[m+((-1)^i)]:T[i]:=z:d:=z:i:=i+1:j:=1:else fi:od:od:print(T):

CROSSREFS

Cf.

Sequence in context: A065274 A260325 A136262 * A090003 A136645 A247498

Adjacent sequences:  A162177 A162178 A162179 * A162181 A162182 A162183

KEYWORD

nonn

AUTHOR

Michel Lagneau, Sep 10 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 30 04:01 EST 2020. Contains 338781 sequences. (Running on oeis4.)