The On-Line Encyclopedia of Integer Sequences® (OEIS®)

Revision History for A286066

(Underlined text is an addition; strikethrough text is a ~~deletion~~.)
Showing all changes.

A286066

Positions of 1 in A286064; complement of A286065.
(history; published version)

#4 by N. J. A. Sloane at Tue May 09 00:14:35 EDT 2017

STATUS

proposed

approved

#3 by Clark Kimberling at Mon May 08 11:20:54 EDT 2017

STATUS

editing

proposed

#2 by Clark Kimberling at Mon May 08 11:14:15 EDT 2017

	NAME	`allocatedPositions of 1 in forA286064; complement Clarkof KimberlingA286065.`
	DATA	`1, 2, 4, 6, 7, 8, 11, 12, 13, 14, 16, 18, 19, 20, 21, 24, 25, 26, 28, 30, 31, 32, 35, 36, 37, 38, 41, 42, 43, 45, 47, 48, 49, 50, 52, 54, 55, 56, 59, 60, 61, 62, 64, 66, 67, 68, 69, 72, 73, 74, 76, 78, 79, 80, 81, 83, 85, 86, 87, 90, 91, 92, 93, 96, 97, 98`
	OFFSET	`1,2`
	COMMENTS	`Conjecture: a(n)/n -> 3/2.`
	LINKS	`Clark Kimberling, <a href="/A286066/b286066.txt">Table of n, a(n) for n = 1..10000</a>`
	EXAMPLE	`As a word, A286064 = 110101110011110101111001110......, in which 1 is in positions 1,2,4,6,7,8,11,...`
	MATHEMATICA	`s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 9] (* A010060 )` `w = StringJoin[Map[ToString, s]]` `w1 = StringReplace[w, {"0110" -> "1"}]` `st = ToCharacterCode[w1] - 48 ( A286064 )` `Flatten[Position[st, 0]] ( A286065 )` `Flatten[Position[st, 1]] ( A286066 *)`
	CROSSREFS	`Cf. A010060, A286064, A286065.`
	KEYWORD	`allocated` `nonn,easy`
	AUTHOR	`Clark Kimberling, May 08 2017`
	STATUS	`approved` `editing`

#1 by Clark Kimberling at Mon May 01 11:29:33 EDT 2017

	NAME	`allocated for Clark Kimberling`
	KEYWORD	`allocated`
	STATUS	`approved`

Last modified August 17 15:25 EDT 2024. Contains 375227 sequences. (Running on oeis4.)