A325519 Difference sequence of A325426.

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

Offset

1,1

Comments

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

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[{#/2,
If[Mod[#, 3] == 0, (2 #)/3, 0] + If[Mod[#, 3] == 1, 1/3 (1 + 2 #), 0]}],
IntegerQ || # == 0]]] &]], {200}]; a ; (* A325425 *)
c = Complement[Range[Last[a]], a] ;    (* A325426 *)
Differences[a]  (* A325518 *)
Differences[c]  (* A325519 *)
(* Peter J. C. Moses, Apr 23 2019 *)

Crossrefs

Cf. A325417, A325426, A325518.

Sequence in context: A339304 A237578 A026146 * A221057 A094366 A341372

Adjacent sequences: A325516 A325517 A325518 * A325520 A325521 A325522

Keyword

nonn,easy

Author

Clark Kimberling, May 06 2019

Status

approved