This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A211998 #31 Mar 16 2015 06:35:44
%S A211998 6,14,22,30,38,62,78,94,126,174,206,254,510,542,606,766,1022,1278,2046
%N A211998 Positions where the monotonicity of A061712 is broken.
%F A211998 {n: A061712(n+1) < A061712(n)}.
%t A211998 (* This script is not convenient for more than 10 terms *) A061712[n_] := A061712[ n] = Module[{m, s, k, p}, For[m=0, True, m++, s = {1, Sequence @@ #, 1} & /@ Permutations[Join[Table[1, {n-2}], Table[0, {m}]]] // Sort; For[k=1, k <= Length[ s], k++, p = FromDigits[s[[k]], 2]; If[PrimeQ[p], Return[p]]]]]; A061712[1] = 2; Reap[Do[If[A061712[n+1] < A061712[n], Print[n]; Sow[n]], {n, 1, 250}]][[2, 1]] (* _Jean-François Alcover_, Mar 16 2015 *)
%Y A211998 Cf. A061712, A211997.
%K A211998 nonn
%O A211998 1,1
%A A211998 _Vladimir Shevelev_ and _Peter J. C. Moses_, Oct 25 2012