cp's OEIS Frontend

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.

A157892 Values of k in A080075.

This page as a plain text file.
%I A157892 #8 Nov 05 2019 00:59:25
%S A157892 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,
%T A157892 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,
%U A157892 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
%N A157892 Values of k in A080075.
%H A157892 Michael De Vlieger, <a href="/A157892/b157892.txt">Table of n, a(n) for n = 1..10000</a>
%H A157892 Zak Seidov, <a href="http://zak08.livejournal.com/5727.html">A157892</a>
%H A157892 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 A157892 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 *)
%Y A157892 Cf. A157893 (Values of m in A080075).
%Y A157892 Cf. A080075 (Proth numbers : of the form k*2^m + 1 for k odd, m >= 1 and 2^m > k).
%K A157892 nonn
%O A157892 1,4
%A A157892 _Zak Seidov_, Mar 08 2009