A211998 Positions where the monotonicity of A061712 is broken.

6, 14, 22, 30, 38, 62, 78, 94, 126, 174, 206, 254, 510, 542, 606, 766, 1022, 1278, 2046

Offset

1,1

Links

Table of n, a(n) for n=1..19.

Formula

{n: A061712(n+1) < A061712(n)}.

Mathematica

(* 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 *)

Crossrefs

Cf. A061712, A211997.

Sequence in context: A043445 A189785 A017137 * A190522 A079797 A093380

Adjacent sequences: A211995 A211996 A211997 * A211999 A212000 A212001

Keyword

nonn

Author

Vladimir Shevelev and Peter J. C. Moses, Oct 25 2012

Status

approved