|
%I #17 Apr 24 2024 09:41:28
%S 1,2,3,2,4,3,5,3,4,3,6,4,5,4,7,4,5,4,6,4,5,4,8,5,6,5,7,5,6,5,9,5,6,5,
%T 7,5,6,5,8,5,6,5,7,5,6,5,10,6,7,6,8,6,7,6,9,6,7,6,8,6,7,6,11,6,7,6,8,
%U 6,7,6,9,6,7,6,8,6,7,6,10,6,7,6,8,6,7,6,9,6,7,6,8,6,7,6,12,7,8,7,9,7,8,7,10
%N Values of m in A080075.
%H Michael De Vlieger, <a href="/A157893/b157893.txt">Table of n, a(n) for n = 1..10000</a>
%H Amelia Carolina Sparavigna, <a href="https://doi.org/10.5281/zenodo.3339313">Discussion of the groupoid of Proth numbers (OEIS A080075)</a>, Politecnico di Torino, Italy (2019).
%t Select[Table[Append[QuotientRemainder[#1, 2^#2], #2] & @@ {#, IntegerExponent[#, 2]} &[n - 1], {n, 3, 5200, 2}], And[OddQ[#[[1]] ], #[[-1]] >= 1, 2^#[[-1]] > #[[1]] ] &][[All, -1]] (* _Michael De Vlieger_, Nov 04 2019 *)
%Y Cf. A157892 (values of k in A080075), A080075 (Proth numbers).
%K nonn,changed
%O 1,2
%A _Zak Seidov_, Mar 08 2009
|
