cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 41-50 of 50 results.

A325527 Difference sequence of A325463.

Original entry on oeis.org

4, 2, 2, 1, 3, 4, 2, 4, 2, 4, 2, 2, 1, 3, 4, 2, 2, 1, 3, 4, 2, 2, 4, 3, 1, 2, 4, 2, 4, 2, 2, 1, 3, 4, 2, 4, 2, 4, 2, 2, 1, 3, 4, 2, 2, 1, 1, 2, 4, 2, 6, 4, 2, 2, 1, 3, 4, 2, 2, 1, 3, 4, 2, 4, 2, 4, 2, 2, 1, 3, 4, 2, 2, 1, 3, 4, 2, 2, 4, 3, 1, 2, 4, 2, 4, 2
Offset: 1

Views

Author

Clark Kimberling, May 07 2019

Keywords

Comments

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

Links

Crossrefs

Cf. A325417, A325463, A325526.

Programs

  • Mathematica
    a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, Apply[Or,
Map[MemberQ[a, #] &, Select[Flatten[{#/2, (#+1)/3}],
IntegerQ]]] &]], {20000}]; a;         (* A315462 *)
c = Complement[Range[Last[a]], a] ;   (* A325463 *)
Differences[a]  (* A325526 *)
Differences[c]  (* A325527 *)
(* Peter J. C. Moses, Apr 23 2019 *)

A325528 Difference sequence of A325464.

Original entry on oeis.org

2, 1, 1, 4, 2, 1, 2, 1, 1, 1, 2, 1, 1, 2, 3, 1, 2, 4, 2, 1, 1, 2, 2, 3, 1, 2, 1, 2, 1, 2, 3, 1, 2, 1, 2, 1, 1, 1, 3, 1, 2, 2, 2, 2, 3, 1, 2, 1, 2, 1, 2, 2, 1, 1, 2, 3, 1, 2, 3, 1, 2, 1, 2, 1, 2, 3, 1, 2, 3, 1, 2, 2, 2, 2, 1, 2, 1, 2, 3, 1, 2, 1, 1, 2, 2, 3
Offset: 1

Views

Author

Clark Kimberling, May 07 2019

Keywords

Comments

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

Links

Crossrefs

Cf. A325417, A325464, A325529.

Programs

  • Mathematica
    a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, Apply[Or,
Map[MemberQ[a, #] &, Select[Flatten[{#/2, (#+2)/3}],
IntegerQ]]] &]], {20000}]; a;         (* A315464 *)
c = Complement[Range[Last[a]], a] ;   (* A325465 *)
Differences[a]  (* A325528 *)
Differences[c]  (* A325529 *)
(* Peter J. C. Moses, Apr 23 2019 *)

A325529 Difference sequence of A325465.

Original entry on oeis.org

4, 1, 1, 2, 3, 5, 4, 2, 1, 3, 2, 1, 1, 2, 4, 2, 2, 1, 3, 3, 3, 2, 1, 3, 3, 5, 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, 2, 2, 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
Offset: 1

Views

Author

Clark Kimberling, May 07 2019

Keywords

Comments

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

Links

Crossrefs

Cf. A325417, A325465, A325528.

Programs

  • Mathematica
    a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, Apply[Or,
Map[MemberQ[a, #] &, Select[Flatten[{#/2, (#+2)/3}],
IntegerQ]]] &]], {20000}]; a;         (* A315464 *)
c = Complement[Range[Last[a]], a] ;   (* A325465 *)
Differences[a]  (* A325528 *)
Differences[c]  (* A325529 *)
(* Peter J. C. Moses, Apr 23 2019 *)

A325530 Difference sequence of A325440.

Original entry on oeis.org

2, 1, 2, 3, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 2, 4, 2, 2, 1, 1, 2, 1, 3, 2, 3, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 2, 1, 3, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 2, 4, 2, 2, 1, 1, 2, 1, 3, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 1, 3, 2, 2
Offset: 1

Views

Author

Clark Kimberling, May 07 2019

Keywords

Comments

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

Links

Crossrefs

Cf. A325417, A325440, A325531.

Programs

  • 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 *)

A325531 Difference sequence of A325441.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, May 07 2019

Keywords

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

Crossrefs

Cf. A325417, A325441, A325530.

Programs

  • 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 *)

A325532 Difference sequence of A325442.

Original entry on oeis.org

1, 2, 1, 3, 2, 1, 2, 1, 2, 1, 1, 2, 2, 1, 3, 2, 1, 3, 2, 2, 1, 1, 2, 1, 3, 2, 1, 2, 1, 2, 1, 3, 2, 1, 2, 1, 2, 1, 3, 2, 2, 2, 2, 1, 3, 2, 1, 2, 1, 2, 1, 1, 2, 2, 1, 3, 2, 1, 3, 2, 1, 2, 1, 2, 1, 3, 2, 1, 3, 2, 1, 1, 2, 2, 1, 2, 1, 2, 1, 3, 2, 2, 1, 1, 2, 1
Offset: 1

Views

Author

Clark Kimberling, May 07 2019

Keywords

Comments

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

Links

Crossrefs

Cf. A325417, A325442, A325533.

Programs

  • Mathematica
    a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, Apply[Or,
Map[MemberQ[a, #] &, Select[Flatten[{(#+1)/2, #/3}],
IntegerQ]]] &]], {20000}]; a;         (* A315442 *)
c = Complement[Range[Last[a]], a] ;   (* A325443 *)
Differences[a]  (* A325532 *)
Differences[c]  (* A325533 *)
(* Peter J. C. Moses, Apr 23 2019 *)

A325533 Difference sequence of A325443.

Original entry on oeis.org

3, 1, 2, 3, 3, 4, 2, 3, 1, 2, 3, 1, 2, 2, 4, 3, 1, 2, 3, 3, 3, 1, 2, 3, 3, 3, 1, 2, 2, 2, 2, 3, 1, 2, 3, 3, 4, 2, 3, 1, 2, 3, 1, 2, 3, 3, 3, 1, 2, 3, 1, 2, 4, 2, 3, 3, 3, 1, 2, 2, 4, 3, 1, 2, 3, 3, 4, 2, 3, 1, 2, 3, 1, 2, 2, 4, 3, 1, 2, 3, 3, 4, 2, 3, 3, 3
Offset: 1

Views

Author

Clark Kimberling, May 07 2019

Keywords

Comments

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

Links

Crossrefs

Cf. A325417, A325443, A325532.

Programs

  • Mathematica
    a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, Apply[Or,
Map[MemberQ[a, #] &, Select[Flatten[{(#+1)/2, #/3}],
IntegerQ]]] &]], {20000}]; a;         (* A315442 *)
c = Complement[Range[Last[a]], a] ;   (* A325443 *)
Differences[a]  (* A325532 *)
Differences[c]  (* A325533 *)
(* Peter J. C. Moses, Apr 23 2019 *)

A325541 Difference sequence of A325539.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, May 07 2019

Keywords

Comments

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

Links

Crossrefs

Cf. A325417, A325539, A325542.

Programs

  • 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*)

A325542 Difference sequence of A325540.

Original entry on oeis.org

2, 3, 1, 4, 1, 1, 5, 1, 2, 2, 7, 1, 2, 2, 1, 1, 6, 4, 1, 3, 2, 1, 1, 2, 2, 2, 5, 1, 4, 1, 6, 1, 2, 2, 1, 1, 2, 3, 1, 2, 2, 6, 1, 1, 4, 1, 7, 4, 1, 3, 3, 1, 2, 2, 1, 1, 5, 1, 2, 2, 1, 5, 2, 2, 2, 1, 1, 5, 1, 4, 7, 1, 4, 1, 1, 5, 1, 4, 1, 3, 2, 1, 1, 2, 2, 7
Offset: 1

Views

Author

Clark Kimberling, May 07 2019

Keywords

Comments

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

Links

Crossrefs

Cf. A325417, A325540, A325541.

Programs

  • 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 *)

A325524 Difference sequence of A325431.

Original entry on oeis.org

1, 3, 2, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 1, 3, 2, 1, 2, 1, 2, 1, 3, 2, 2, 1, 1, 2, 1, 3, 2, 3, 1, 1, 1, 1, 1, 2, 2, 3, 1, 2, 1, 3, 2, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 3, 1, 2, 1, 1, 2, 2, 3, 1, 1, 1, 1, 2, 1, 2, 2, 1, 1, 1, 1, 1, 3, 1, 1, 3, 1, 1, 1
Offset: 1

Views

Author

Clark Kimberling, May 06 2019

Keywords

Comments

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

Links

Crossrefs

Cf. A325417, A325431, A325525.

Programs

  • Mathematica
    a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, Apply[Or,
Map[MemberQ[a, #] &, Select[Flatten[{#/3, #/4}],
IntegerQ]]] &]], {20000}]; a;         (* A315431 *)
c = Complement[Range[Last[a]], a] ;   (* A325432 *)
Differences[a]  (* A325524 *)
Differences[c]  (* A325525 *)
(* Peter J. C. Moses, Apr 23 2019 *)

Formula

Asymptotic mean: lim_{n->oo} (1/n) * Sum_{k=1..n} a(k) = 20/13. - Amiram Eldar, Nov 26 2020
Previous Showing 41-50 of 50 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.