A175938 Repeat: Take next nonprime, next prime, next nonprime, then reverse the order.
4, 2, 1, 8, 3, 6, 10, 5, 9, 14, 7, 12, 16, 11, 15, 20, 13, 18, 22, 17, 21, 25, 19, 24, 27, 23, 26, 30, 29, 28, 33, 31, 32, 35, 37, 34, 38, 41, 36, 40, 43, 39, 44, 47, 42, 46, 45, 53, 49, 48, 59, 51, 50, 61, 54, 52, 67, 56, 55, 71
Offset: 1
Keywords
Programs
-
Mathematica
pr=Prime[Range[1000]];np=Complement[Range[pr[[-1]]],pr]; FL=Flatten@Transpose[{Table[np[[k]],{k,2,1000,2}],Take[pr,500],Table[np[[k]],{k,1,999,2}]}]
Comments