%I#10 2013年11月17日14:51:48

%S 1,1,2,1,2,1,1,3,2,1,3,1,2,4,1,3,1,3,2,2,1,4,3,3,2,1,4,2,2,2,3,3,15,1,5,2,2，

%温度4,4,1,2,4,4,1,3,1,3,2,1,5,3,3,,3,1,4,42,2,1,6,1,6,6,3,1,3，

%U 5,5,1,5,1,1,2,3,3,5,1,5,5,2,2,1,4,2,4,1,3,32,2,6,6,1,4,4,1,4

%N到达固定点“N->N/2或（N+1）/2直到结果为素数”的步数。

%H Reinhard Zumkeller，n的表，n=1..10000的a（n）</a>

%t供应商[n_Integer]：=长度/@Drop[FixedPointList[If[EvenQ[#]&#>2，#/2，If[PrimeQ[#]||（#==1），#，（#+1）/2]]&，n，20]，-1]

%o（哈斯克尔）

%o a039637 1=1

%o a039637 n=snd$直到（（==1）。a010051。fst）

%o（\（x，i）->（（x+1）`div`2，i+1））（n，1）

%o--_Reinhard Zumkeller_，2013年11月17日

%Y参考A039634-A039645。

%Y参考A010051、A039635、A039626、A039644和A039645。

%K nonn公司

%O 1,4型

%外梅森（_W）_

%2013年11月17日，Reinhard Zumkeller_修正了E偏移