%I #30 Jan 19 2023 09:35:17
%S 2,5,2,4,3,11,2,3,8,16,4,21,6,5,2,11,20,34,8,15,10,7,13,11,13,45,18,
%T 23,8,3,2,25,75,42,13,5,23,13,50,16,18,89,38,8,39,30,29,38,7,45,23,
%U 137,46,63,17,48,5,46,34,140,33,39,2,28,29,79,33,48,3,10,46,120,6,37,17,8,44,15,160,20,35,144,104,179,153,24,8,265,19,9,62,7,139,19,44,93,182,27,158,185
%N a(n) is the least step for the Sankt-Petrus-game with n white and n black stones.
%C Beginning at the position A187789(n) with step a(n), (n-1) white stones were eliminated; then from the position 1 of the last white stone, n black stones were eliminated.
%D W. Ahrens, Das Josephusspiel, Archiv für Kulturgeschichte, Jg 11(1913), 129-151.
%H R. Baumann, <a href="https://www.yumpu.com/de/document/read/460296/nr-165">Das Josephus-Problem</a>, LOG IN, Heft Nr. 165, pp. 68-71, 2010 (in German).
%H <a href="/index/J#Josephus">Index entries for sequences related to the Josephus Problem</a>
%e n=4; WBWWBBWB; startposition=A187789(4)=8; least step=a(4)=4; elimination: white stones: {3,7,4}; black stones: {6,5,8,2}.
%p s:=1: M:={}:
%p for n from 1 to 100 do M:=M union {n}:
%p while (M <> {}) do
%p s1:=s: s:=s+1: f[1]:=1:
%p for n from 2 to 101 do n1:=n-1:
%p f[n]:=(f[n1]+s1) mod n +1:
%p if (f[n]=1) and (n1 in M) then
%p a[n1]:=s: M:=M minus {n1}:
%p end if:
%p end do:
%p end do:
%Y Cf. A187789, A206602.
%Y First column in A321781.
%K nonn
%O 1,1
%A _Paul Weisenhorn_, Jan 06 2013