[go: up one dir, main page]

login
Revision History for A287579 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
Positions of 2 in A287576.
(history; published version)
#4 by N. J. A. Sloane at Thu Jun 01 21:09:33 EDT 2017
STATUS

proposed

approved

#3 by Clark Kimberling at Thu Jun 01 11:05:47 EDT 2017
STATUS

editing

proposed

#2 by Clark Kimberling at Thu Jun 01 11:00:13 EDT 2017
NAME

allocated for Clark KimberlingPositions of 2 in A287576.

DATA

3, 8, 9, 14, 18, 23, 28, 29, 33, 38, 43, 48, 52, 53, 58, 63, 68, 69, 74, 79, 83, 88, 89, 94, 98, 103, 108, 109, 113, 118, 123, 128, 129, 134, 139, 144, 148, 149, 154, 159, 163, 168, 169, 174, 178, 183, 188, 189, 194, 199, 204, 205, 209, 214, 219, 224, 228

OFFSET

1,1

COMMENTS

a(n) - a(n-1) is in {1,4,5} for n >= 1; also, 4n - a(n) is in {0,1,2,3} for n >= 1. The first 20 numbers 4n - a(n) are 1, 0, 3, 2, 2, 1, 0, 3, 3, 2, 1, 0, 0, 3, 2, 1, 0, 3, 2, 1, with

0 in positions given by A287580,

1 in positions given by A287577,

2 in positions given by A287578,

3 in positions given by A287579.

LINKS

Clark Kimberling, <a href="/A287579/b287579.txt">Table of n, a(n) for n = 1..10000</a>

FORMULA

a(n) = 4n - A287576(n) for n >= 1.

MATHEMATICA

s = Nest[Flatten[# /. {0 -> {0, 3, 2, 1}, 1 -> {3, 2, 1, 0}, 2 -> {2, 1, 0, 3}, 3 -> {1, 0, 3, 2}}] &, {0}, 9]; (* A287576 *)

Flatten[Position[s, 0]]; (* A287577 *)

Flatten[Position[s, 1]]; (* A287578 *)

Flatten[Position[s, 2]]; (* A287579 *)

Flatten[Position[s, 3]]; (* A287580 *)

CROSSREFS
KEYWORD

allocated

nonn,easy

AUTHOR

Clark Kimberling, Jun 01 2017

STATUS

approved

editing

#1 by Clark Kimberling at Fri May 26 16:29:06 EDT 2017
NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved