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.
%I A069841 #8 Sep 18 2023 18:42:05
%S A069841 0,1,1,7,15,5,7,1,47,21,1,61,5,13,51,41,29,29,31,19,33,7,13,31,19,67,
%T A069841 27,93,25,43,9,49,5,81,67,1,91,21,121,81,15,149,19,161,23,119,25,107,
%U A069841 117,43,9,117,13,85,55,131,9,7,57,17,145,73,17,301,305,157,341
%N A069841 A036937(n) - 222...2 (with n 2s) interpreted as binary numbers and converted to decimal.
%C A069841 Values of k arising from Mathematica calculation of A036937.
%H A069841 Robert G. Wilson v, <a href="/A069841/a069841.txt">Comments and first 121 terms</a>
%t A069841 Do[p = 2(10^n - 1)/9; k = 0; While[ ! PrimeQ[p], k++; p = FromDigits[ PadLeft[ IntegerDigits[k, 2], n] + 2]]; Print[p], {n, 1, 30}]
%Y A069841 Cf. A036937.
%K A069841 nonn
%O A069841 1,4
%A A069841 _Robert G. Wilson v_, May 03 2002
%E A069841 Definition amended by _Georg Fischer_, Sep 18 2023