A325495 Difference sequence of A325420.

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

Offset

1,1

Comments

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

Links

Table of n, a(n) for n=1..86.

Mathematica

a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1,
Apply[Or, Map[MemberQ[a, #] &, Select[Flatten[{#/3, (# - 1)/2}],
IntegerQ]]] &]], {2000}]; a ;       (* A325419 *)
c = Complement[Range[Last[a]], a] ; (* A325420 *)
Differences[a]  (* A325494 *)
Differences[c]  (* A325495 *)
(* Peter J. C. Moses, Apr 23 2019 *)

Crossrefs

Cf. A325417, A325494.

Sequence in context: A113278 A132382 A366627 * A048865 A058754 A279909

Adjacent sequences: A325492 A325493 A325494 * A325496 A325497 A325498

Keyword

nonn,easy

Author

Clark Kimberling, May 05 2019

Status

approved