This site is supported by donations to The OEIS Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A318712 Numbers n for which a riffle shuffle permutation with two or more packets permutes all except the first and the last of the n cards. 1
 4, 6, 12, 14, 18, 20, 30, 38, 42, 54, 60, 62, 68, 84, 90, 98, 102, 108, 110, 114, 132, 138, 140, 150, 164, 174, 180, 182, 198, 212, 228, 230, 234, 252, 258, 270, 282, 294, 308, 318, 348, 350, 354, 374, 380, 390, 402, 420, 422, 434, 444, 450, 462, 468, 492, 500, 510, 522, 524, 542, 548, 558, 564 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS If n cards are cut into m packets of s cards each, the r-th card of the deck can be identified with the pair (p,q), where p=(r-1)%s+1 ('%' is the Euclidean division) is the number of the packet and q=((r-1) mod s)+1 is the position in the packet, e.g. n=4, m=2, s=2: 1->(1,1), 2->(1,2), 3->(2,1), 4->(2,2). The shuffle is performed by taking the card with the lowest q of each packet in sequence and stack them on top of one another. It is a generalization of the riffle shuffle with two cards (cf. A217948) and it can be described as a permutation where (p,q) becomes (((q-1)*m+p-1)%s+1,(((q-1)*m+p-1) mod s)+1). For example, n=8, m=4, s=2, (1,1)->(1,1), (2,1)->(1,2), (3,1)->(2,1), (4,1)->(2,2), (1,2)->(3,1), (2,2)->(3,2), (3,2)->(4,1), (4,2)->(4,2); this permutation can be described using the index r as (3,2,5)(4,6,7). The numbers in the sequence are the values of n for which the permutation consists of only one orbit with n-2 passages (e.g. n=6, m=3, s=2 is (3,2,4,5)). Sequence A217948 is a subsequence of this one as it only takes into consideration the m=2 case. If the formula is true then Tiago Januario's conjecture on A217948 would be solved (see formula). LINKS Mauro Rigo, Table of n, a(n) for n = 1..5000 FORMULA Apparently a(n) = A225184(n+1) + 1. PROG (matlab) arr = []; for i = 4:1000 pdiv = 2:ceil(sqrt(i)); divisors = pdiv(rem(i, pdiv)==0); stop = 0; for j = divisors if ~stop ndiv = j; neldiv = i/j; a0 = 1; b0 = 2; a = a0; b = b0; a1 = 0; b1 = 0; operations = 0; while a1~=a0 || b1~=b0 b1 = mod((b-1)*ndiv+a-1, neldiv)+1; a1 = floor(((b-1)*ndiv+a-1)/neldiv)+1; operations = operations + 1; a = a1; b = b1; end if operations==i-2 arr = [arr, i]; stop = 1; end end end end CROSSREFS Cf. A217948, A225184. Sequence in context: A175593 A163097 A110178 * A140599 A282280 A320495 Adjacent sequences:  A318709 A318710 A318711 * A318713 A318714 A318715 KEYWORD nonn AUTHOR Mauro Rigo, Sep 01 2018 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 17 06:08 EDT 2019. Contains 328106 sequences. (Running on oeis4.)