A322425 - OEIS

%I #12 Mar 15 2019 18:55:21

%S 1,2,3,4,5,1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4,5,1,2,3,4,

%T 1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,1,2,3,4,5,1,2,3,4,1,2,3,4,1,2,3,4,1,2,

%U 3,4,1,2,3,1,2,3,4,5,1,2,3,4,1,2,3,4,1

%N Start with (1, 2, 3, 4, 5); if the sequence has n terms, extend it by appending a(n) copies of a(1..n-1): cf. "Look to the left" sequence A293630.

%H Iain Fox, <a href="/A322425/b322425.txt">Table of n, a(n) for n = 1..10000</a>

%F Lim_{n->infinity} (a(1) + a(2) + ... + a(n))/n = 2.55182072...

%t Nest[Join[#, Flatten@ ConstantArray[Drop[#, -1], #[[-1]]] ] &, Range@ 5, 2] (* _Michael De Vlieger_, Dec 08 2018 *)

%o (PARI) gen(n, v=[1, 2, 3, 4, 5], w) = for(x=1, n, w=vector(#v-1, i, v[i]); for(y=1, v[#v], v=concat(v, w))); v

%Y "Look to the left" sequences: A293630 (seed 1,2), A322423 (seed 1,2,3), A322424 (seed 1,2,3,4).

%Y Cf. A322426.

%K nonn

%O 1,2

%A _Iain Fox_, Dec 07 2018

%E Self-contained definition from _M. F. Hasler_, Dec 10 2018