OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
Amelia Carolina Sparavigna, Discussion of the groupoid of Proth numbers (OEIS A080075), Politecnico di Torino, Italy (2019).
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 08 2009
STATUS
approved