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,4

Comments

Values of k arising from Mathematica calculation of A036937.

Links

Table of n, a(n) for n=1..67.

Robert G. Wilson v, Comments and first 121 terms

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

Crossrefs

Cf. A036937.

Sequence in context: A213151 A225763 A070407 * A289940 A290065 A289932

Adjacent sequences: A069838 A069839 A069840 * A069842 A069843 A069844

Keyword

nonn

Author

Robert G. Wilson v, May 03 2002

Extensions

Definition amended by Georg Fischer, Sep 18 2023

Status

approved