|
|
|
|
1, 1, 1, 3, 1, 3, 1, 5, 3, 7, 1, 5, 3, 7, 1, 9, 5, 11, 3, 13, 7, 15, 1, 9, 5, 11, 3, 13, 7, 15, 1, 17, 9, 19, 5, 21, 11, 23, 3, 25, 13, 27, 7, 29, 15, 31, 1, 17, 9, 19, 5, 21, 11, 23, 3, 25, 13, 27, 7, 29, 15, 31, 1, 33, 17, 35, 9, 37, 19, 39, 5, 41, 21, 43, 11, 45, 23, 47, 3, 49, 25, 51, 13
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Table[Append[QuotientRemainder[#1, 2^#2], #2] & @@ {#, IntegerExponent[#, 2]} &[n - 1], {n, 3, 3360, 2}], And[OddQ[#[[1]] ], #[[-1]] >= 1, 2^#[[-1]] > #[[1]] ] &][[All, 1]] (* Michael De Vlieger, Nov 04 2019 *)
|
|
CROSSREFS
|
Cf. A080075 (Proth numbers : of the form k*2^m + 1 for k odd, m >= 1 and 2^m > k).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|