A325531 Difference sequence of A325441.

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

Offset

1,1

Comments

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

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, (#+1)/3}],
IntegerQ]]] &]], {20000}]; a;        (* A315440 *)
c = Complement[Range[Last[a]], a] ;  (* A325441 *)
Differences[a]  (* A325530 *)
Differences[c]  (* A325531 *)
(* Peter J. C. Moses, Apr 23 2019 *)

Crossrefs

Cf. A325417, A325441, A325530.

Sequence in context: A215415 A244477 A035572 * A115215 A335012 A158275

Adjacent sequences: A325528 A325529 A325530 * A325532 A325533 A325534

Keyword

nonn,easy

Author

Clark Kimberling, May 07 2019

Status

approved