A358273 Number of binary digits of A007442(n).

2, 1, 1, 1, 2, 4, 5, 6, 7, 8, 9, 10, 11, 11, 9, 12, 14, 16, 17, 18, 19, 20, 21, 21, 21, 21, 21, 24, 26, 27, 28, 29, 30, 31, 32, 32, 33, 33, 31, 34, 36, 38, 39, 40, 41, 41, 41, 41, 44, 46, 48, 49, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80

Offset: 1

Author

Clark Kimberling and Robert G. Wilson v, Oct 31 2022

Keywords

• base
• easy
• nonn

Crossrefs

Cf. A007442, A358618, A358619.

Programs

Mathematica

nn = 80; p = Prime@ Range@ nn; t = Table[ Differences[p, n][[1]], {n, 0, nn - 1}]; lid = Table[ Length@ IntegerDigits[ t[[n]], 2], {n, nn}]