A325520 Difference sequence of A325427.

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

Offset

1,2

Comments

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

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

Crossrefs

Cf. A325417, A325427, A325521.

Sequence in context: A135511 A007413 A277750 * A072457 A364554 A301630

Adjacent sequences: A325517 A325518 A325519 * A325521 A325522 A325523

Keyword

nonn,easy

Author

Clark Kimberling, May 06 2019

Status

approved