%I #9 Nov 17 2013 14:52:37
%S 3,2,3,2,3,7,2,5,3,7,2,19,5,11,3,13,7,31,17,2,37,5,5,11,3,3,13,13,13,
%T 7,2,2,17,17,37,19,79,41,5,43,11,11,3,97,3,3,53,7,7,7,29,7,7,31,2,2,
%U 67,17,139,17,71,73,19,19,157,79,83,5,43,43,11,11,23,23,47,3,97,199,3
%N Fixed point of "k -> k/2 or (k-1)/2 until result is prime", starting with prime(n)+1.
%H Reinhard Zumkeller, <a href="/A039639/b039639.txt">Table of n, a(n) for n = 1..10000</a>
%t see A039634.
%o (Haskell)
%o a039639 = until ((== 1) . a010051) (flip div 2) . (+ 1) . a000040
%o -- _Reinhard Zumkeller_, Nov 17 2013
%Y Cf. A039634-A039645.
%Y Cf. A010051, A000040, A039643, A039641, A039634.
%K nonn
%O 1,1
%A _Wouter Meeussen_
%E Offset corrected by _Reinhard Zumkeller_, Nov 17 2013
|