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

Links

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

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

Crossrefs

Cf. A007442, A358618, A358619.

Sequence in context: A026148 A117211 A246576 * A215894 A061545 A287641

Adjacent sequences: A358270 A358271 A358272 * A358274 A358275 A358276

Keyword

base,easy,nonn

Author

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

Status

approved