Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A039635
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A039635 Fixed point of "n -> n/2 or (n+1)/2 until result is prime". +0
4
1, 2, 3, 2, 5, 3, 7, 2, 5, 5, 11, 3, 13, 7, 2, 2, 17, 5, 19, 5, 11, 11, 23, 3, 13, 13, 7, 7, 29, 2, 31, 2, 17, 17, 5, 5, 37, 19, 5, 5, 41, 11, 43, 11, 23, 23, 47, 3, 13, 13, 13, 13, 53, 7, 7, 7, 29, 29, 59, 2, 61, 31, 2, 2, 17, 17, 67, 17, 5, 5, 71, 5, 73, 37, 19, 19, 5, 5, 79, 5, 41 (list; graph; listen)
OFFSET

0,2

MATHEMATICA

upp[ n_Integer ] := FixedPoint[ If[ EvenQ[ # ]&&#>2, #/2, If[ PrimeQ[ # ]||(#=== 1), #, (#+1)/2 ] ]&, n, 20 ]

CROSSREFS

Cf. A039634-A039645.

Sequence in context: A102095 A109395 A072593 this_sequence A081812 A139421 A072505

Adjacent sequences: A039632 A039633 A039634 this_sequence A039636 A039637 A039638

KEYWORD

nonn

AUTHOR

Wouter Meeussen (wouter.meeussen(AT)pandora.be)

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified July 25 07:41 EDT 2008. Contains 142293 sequences.


AT&T Labs Research