A069841 - OEIS

%I #8 Sep 18 2023 18:42:05

%S 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 27,93,25,43,9,49,5,81,67,1,91,21,121,81,15,149,19,161,23,119,25,107,

%U 117,43,9,117,13,85,55,131,9,7,57,17,145,73,17,301,305,157,341

%N A036937(n) - 222...2 (with n 2s) interpreted as binary numbers and converted to decimal.

%C Values of k arising from Mathematica calculation of A036937.

%H Robert G. Wilson v, <a href="/A069841/a069841.txt">Comments and first 121 terms</a>

%t 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 Cf. A036937.

%K nonn

%O 1,4

%A _Robert G. Wilson v_, May 03 2002

%E Definition amended by _Georg Fischer_, Sep 18 2023