login
This site is supported by donations to The OEIS Foundation.

 

Logo

Invitation: celebrating 50 years of OEIS, 250000 sequences, and Sloane's 75th, there will be a conference at DIMACS, Rutgers, Oct 9-10 2014.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A175077 Final number reached by iterating r -> A049711(r) starting at r = n. 3
1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

See A175071 for starting n that reach 1, and A175072 for starting n that reach 2.

LINKS

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

FORMULA

a(A175071(k)) = 1; a(A175072(k)) = 2, any k [R. J. Mathar, Feb 19 2010]

EXAMPLE

Iteration procedure for n = 6: 6 mod 5 = 1 = a(6). Iteration procedure for n = 7: 7 mod 5 = 2 = a(7).

MAPLE

A151799 := proc(n) prevprime(n) ; end proc:

A049711 := proc(n) if n <=2 then n; else n-A151799(n) ; end if; end proc:

A175077 := proc(n) local r ; r := n ; while r > 2 do r := A049711(r) ; end do: r ; end proc:

seq(A175077(n), n=1..100) ; # R. J. Mathar, Feb 19 2010

CROSSREFS

Cf. A151799.

Sequence in context: A115623 A134265 A182858 * A001030 A246140 A071709

Adjacent sequences:  A175074 A175075 A175076 * A175078 A175079 A175080

KEYWORD

nonn

AUTHOR

Jaroslav Krizek, Jan 23 2010

EXTENSIONS

More terms from R. J. Mathar, Feb 19 2010

STATUS

approved

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

Content is available under The OEIS End-User License Agreement .

Last modified August 27 19:11 EDT 2014. Contains 246147 sequences.