A358619 -id:A358619 - cp's OEIS frontend

A358618 First differences of A258036.

2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2

Offset: 1

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

Conjecture: All terms belong to {1, 2, 3}. See third comment in A258036.

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A258036, A358619.

P:= :
S:= NULL: count:= 0:
for i from 2 while count < 101 do
  P:= P[2..-1] - P[1..-2];
  if P[1] < 0 then S:= S,i; count:= count+1; fi;
od:
S:= [S]:
S[2..-1]-S[1..-2]; # Robert Israel, Dec 21 2022

nn = 210; p = Prime@ Range@ nn; t = Table[ Differences[p, n][[1]], {n, 0, nn - 1}]; s = Select[ Range@ nn, t[[#]] < 0 &]; d = Differences@ s

A358273 Number of binary digits of A007442(n).

Original entry on oeis.org

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

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

Cf. A007442, A358618, A358619.

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

cp's OEIS Frontend

A358618 First differences of A258036.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica