



2, 8, 12, 16, 20, 24, 30, 34, 38, 44, 48, 52, 58, 62, 66, 72, 76, 80, 86, 90, 94, 98, 102, 108, 112, 116, 122, 126, 130, 136, 140, 144, 148, 152, 158, 162, 166, 172, 176, 180, 186, 190, 194, 198, 202, 208, 212, 216, 222, 226, 230, 236, 240, 244, 248, 252
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Conjecture: a(n)/n > (5 + sqrt(17))/2.


LINKS

Clark Kimberling, Table of n, a(n) for n = 1..10000 [term a(8731)=39826 > 39824 and following corrected by Georg Fischer, Jun 04 2020]


EXAMPLE

As a word, A285657 = 101111101..., in which 0 is in positions 2,8,12,16,...


MATHEMATICA

s = Nest[Flatten[# /. {0 > {1, 1}, 1 > {1, 0, 1, 1}}] &, {0}, 10] (* A285657 *)
u = Flatten[Position[s, 0]] (* A285658 *)
Flatten[Position[s, 1]] (* A285659 *)
u/2 (* A286043 *)


CROSSREFS

Cf. A285551, A285658, A285659.
Sequence in context: A180634 A139270 A176100 * A284802 A067884 A005880
Adjacent sequences: A285655 A285656 A285657 * A285659 A285660 A285661


KEYWORD

nonn,easy


AUTHOR

Clark Kimberling, May 01 2017


STATUS

approved



