A325541 Difference sequence of A325539.

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

Offset

1,2

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, (# - 2)/3}],
IntegerQ]]] &]], {200}]; a       (* A325539 *)
Complement[Range[Last[a]], a]    (* A325540 *)
Differences[a]  (* A325541 *)
Differences[c]  (* A325542 *)
(*Peter J. C. Moses, Apr 23 2019*)

Crossrefs

Cf. A325417, A325539, A325542.

Sequence in context: A268190 A241150 A051135 * A260258 A283196 A238882

Adjacent sequences: A325538 A325539 A325540 * A325542 A325543 A325544

Keyword

nonn,easy

Author

Clark Kimberling, May 07 2019

Status

approved