A325532 Difference sequence of A325442.

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

Offset

1,2

Comments

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

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, A325442, A325533.

Sequence in context: A016444 A280831 A166948 * A180075 A193865 A026171

Adjacent sequences: A325529 A325530 A325531 * A325533 A325534 A325535

Keyword

nonn,easy

Author

Clark Kimberling, May 07 2019

Status

approved