[go: up one dir, main page]

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

Showing all changes.
Positions of 1 in A287368.
(history; published version)
#4 by N. J. A. Sloane at Thu May 25 13:14:16 EDT 2017
STATUS

proposed

approved

#3 by Clark Kimberling at Thu May 25 10:55:19 EDT 2017
STATUS

editing

proposed

#2 by Clark Kimberling at Thu May 25 10:13:33 EDT 2017
NAME

allocated for Clark KimberlingPositions of 1 in A287368.

DATA

2, 4, 5, 6, 9, 11, 13, 14, 15, 18, 19, 20, 23, 24, 25, 28, 31, 34, 36, 38, 39, 40, 43, 45, 47, 48, 49, 52, 54, 56, 57, 58, 61, 62, 63, 66, 67, 68, 71, 74, 77, 79, 81, 82, 83, 86, 87, 88, 91, 92, 93, 96, 99, 102, 104, 106, 107, 108, 111, 112, 113, 116, 117

OFFSET

1,1

LINKS

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

MATHEMATICA

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {2, 1}, 2 -> 0}] &, {0}, 14] (* A287368 *)

Flatten[Position[s, 0]] (* A287369 *)

Flatten[Position[s, 1]] (* A287370 *)

Flatten[Position[s, 2]] (* A287371 *)

CROSSREFS
KEYWORD

allocated

nonn,easy

AUTHOR

Clark Kimberling, May 25 2017

STATUS

approved

editing

#1 by Clark Kimberling at Tue May 23 19:46:16 EDT 2017
NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved