OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
upp[ n_Integer ] := FixedPoint[ If[ EvenQ[ # ]&&#>2, #/2, If[ PrimeQ[ # ]||(#=== 1), #, (#+1)/2 ] ]&, n, 20 ]
PROG
(Haskell)
a039635 1 = 1
a039635 n = until ((== 1) . a010051) ((flip div 2) . (+ 1)) n
-- Reinhard Zumkeller, Nov 17 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset corrected by Reinhard Zumkeller, Nov 17 2013
STATUS
approved