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

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, 27, 93, 25, 43, 9, 49, 5, 81, 67, 1, 91, 21, 121, 81, 15, 149, 19, 161, 23, 119, 25, 107, 117, 43, 9, 117, 13, 85, 55, 131, 9, 7, 57, 17, 145, 73, 17, 301, 305, 157, 341

Offset: 1

Author

Robert G. Wilson v, May 03 2002

Keywords

• nonn

Comments

Values of k arising from Mathematica calculation of A036937.

Links

• Robert G. Wilson v, Comments and first 121 terms

Crossrefs

Cf. A036937.

Programs

Mathematica

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}]

Extensions

Definition amended by Georg Fischer, Sep 18 2023