A325533 Difference sequence of A325443.

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

Offset

1,1

Comments

See A325417 for a guide to related sequences. Conjecture: every term is in {1,2,3,4}.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Mathematica

a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, Apply[Or,
Map[MemberQ[a, #] &, Select[Flatten[{(#+1)/2, #/3}],
IntegerQ]]] &]], {20000}]; a;         (* A315442 *)
c = Complement[Range[Last[a]], a] ;   (* A325443 *)
Differences[a]  (* A325532 *)
Differences[c]  (* A325533 *)
(* Peter J. C. Moses, Apr 23 2019 *)

Crossrefs

Cf. A325417, A325443, A325532.

Sequence in context: A322850 A337566 A106601 * A110030 A211948 A021766

Adjacent sequences: A325530 A325531 A325532 * A325534 A325535 A325536

Keyword

nonn,easy

Author

Clark Kimberling, May 07 2019

Status

approved